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第 1 章 Excel 2010 开发 平台 概述 


在 学 习 VBA 应 用 程序 开发 前 ， 用 户 需 要 了 解 其 开发 平台 Excel 2010 的 相关 知识 ， 以 有 
利于 后 期 的 开发 工作 。 本 章 主要 讲述 初 识 Excel 2010、 用 Excel 2010 开发 应 用 程序 的 优势 、 
Excel 应 用 程序 的 结构 和 Excel 应 用 程序 开发 流程 等 知识 。 


1 
初 识 Excel 2010 


和 以 往 版 本 相 比 , Excel 2010 采用 了 全 新 的 工作 界面 ,启动 Excel 2010 后 , 即 可 看 到 Excel 
2010 的 工作 界面 ， 如 图 1-1 所 示 。 
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ETEEN 入 门 与 交 战 
是 本 Excel 2010 的 任务 


Excel 2010 是 一 个 功能 强大 、 技 术 先 进 、 使 用 方便 的 表格 式 数 据 综合 处 理 和 分 析 软 件 ， 
它 以 电子 表格 的 方式 进行 数据 处 理 , 并 可 将 数据 以 图 形 化 的 方式 表现 出 来 , 同时 还 具备 简捷 、 
灵活 的 图 形 化 操作 窗口 。 

具体 的 任务 体现 如 下 。 


1. 表格 处 理 
Excel 2010 中 所 有 的 数据 信息 都 是 以 二 维 表格 形式 〈 电 子 表 格 ) 进行 存储 和 管理 的 ， 单 


2010 与 手工 表格 颇 为 类 似 ,但 Excel 2010 的 电子 表格 中 不 仅仅 有 各 种 数据 ， 还 包括 一 些 计算 
公式 和 函数 。 当 在 电子 表格 中 输入 数据 时 ， 这 些 公式 和 函数 能 自动 完成 所 需 的 计算 和 分 析 ， 
大 大 提高 了 数据 处 理 的 效率 。 


2. 数据 分 析 


Excel 2010 的 数据 分 析 功 能 提供 了 财务 、 日 期 与 时 间 、 数 学 与 三 角 函数 、 统 计 、 查 找 与 
引用 、 数 据 库 、 文 本 、 逻 辑 和 信息 等 几 百 个 内 置 函 数 ， 可 以 满足 许多 领域 内 数据 处 理 与 分 析 
的 要 求 。 如 果 内 置 函数 不 能 满足 需要 ， 用 户 还 可 以 使 用 Excel 2010 内 置 的 Visual Basic for 
Application (VBA) 来 创建 自 定义 函数 。 

另外 ，Excel 2010 除了 具有 一 般 数 据 库 软 件 所 提供 的 数据 排序 、 筛 选 、 查 询 、 统 计 汇 总 
等 数据 处 理 功能 外 ， 还 提供 了 相应 的 数据 分 析 和 辅助 决策 工具 ， 包 括 数据 透视 表 、 模 拟 运算 
表 、 假 设 检验 、 方 差分 析 、 移 动 平 均 、 指 数 平滑 、 回 归 分 析 、 规 划 求 解 、 多 方案 管理 器 等 分 
析 工 具 。 用 户 只 要 正确 地 选择 适当 的 参数 ， 即 可 利用 以 上 工具 完成 复杂 的 分 析 求 解 过 程 ， 得 
到 相应 的 分 析 结 果 和 完整 的 求解 报告 。 

3. 图 表 制 作 


与 同类 软件 相 比 ，Excel 2010 具有 极 强 的 图 表 处 理 功 能 ， 可 以 方便 地 将 数据 表格 中 的 有 
关 数 据 转 化 为 专业 化 图 表 。 此 外 ， 它 提供 了 丰富 的 图 表 类 型 ， 有 条 形 图 、 柱 形 图 、 折 线 图 、 
散 点 图 以 及 多 种 复合 图 表 和 三 维 图 表 ， 并 针对 每 一 种 图 表 类 型 提供 了 几 种 不 同 的 图 表格 式 ， 
以 供用 户 自动 套用 。 

如 果 Excel 2010 所 提供 的 标准 图 表 类 型 不 能 满足 特殊 需要 , 用 户 还 可 自 定义 图 表 类 型 , 并 可 
对 图 表 的 标题 、 数 值 、 坐 标 及 图 例 等 项 目 分 别 进 行 定制 ， 从 而 获得 最 佳 的 外 观 效果 。 同 时 ，Excel 
2010 还 能 够 自动 建立 数据 与 图 表 间 的 关联 ， 当 数据 更 新 时 ， 图 表 随 数据 的 变化 而 变化 。 


4. 宏和 VBA 功能 


为 了 更 好 地 发 挥 Excel 2010 的 强大 功能 ，Excel 2010 还 提供 宏 功 能 以 及 内 置 的 VBA， 用 
户 可 以 使 用 它们 来 进行 二 次 开发 ， 拓 展 和 提高 Excel 的 应 用 水 平 。 


宏 是 为 初级 用 户 提 高 工作 效率 而 提供 的 。Excel 2010 提供 有 宏 记录 器 ， 可 将 用 户 所 做 的 
操作 记录 下 来 ， 自 动 转换 成 相应 的 宏 命 令 。 当 需要 再 次 执行 这 些 操作 时 ， 用 户 可 直接 运行 这 
些 宏 命令 。 

对 于 需要 经 常 使 用 的 宏 ， 可 将 其 指派 给 特定 的 自 定义 菜单 或 自 定义 工具 按钮 ， 以 后 只 要 
选择 相应 的 菜单 命令 或 单 击 相应 的 工具 按钮 ， 就 可 以 直接 运行 这 些 宏 了 。 

利用 Excel 2010 提供 的 VBA 功能 ， 可 以 充分 发 挥 Excel 的 各 个 功能 ， 实 现 Excel 软件 的 
更 高 层次 应 用 (如 程序 编制 、 软 件 开发 )。 


本 要 Excel 2010 的 新 增 功能 


Excel 2010 与 以 前 的 版 本 相 比 ， 增 加 了 许多 新 功能 ， 为 将 来 实现 人 性 化 办 公 提 供 了 条 件 。 
1. 更 直观 地 表达 想法 

Excel 2010 开创 了 一 些 设计 方法 ， 让 用 户 可 以 将 想法 生动 地 表达 出 来 。 使 用 新 增 的 和 改 
进 的 图 片 格式 工具 (例如 ,颜色 饱和 度 和 艺术 效果 ) 可 以 将 文档 画面 转换 为 艺术 品 。 在 Excel 
2010 中 , 将 这 些 工 具 与 大 量 预 置 的 新 主题 和 SmartArt 图 形 布局 配合 使 用 , 可 以 更 淋漓尽致 地 
表达 出 自己 的 想法 ， 如 图 1-2 所 示 。 


图 1-2 SmartArt 布 局 的 图 形 


2. 更 加 入 性 化 的 功能 区 

利用 功能 区 ， 用 户 可 以 轻松 地 查找 以 前 隐藏 在 复杂 菜单 和 工具 栏 中 的 命令 和 功能 。 除 此 
之 外 ，Excel 2010 添加 了 更 加 强大 的 自 定义 功能 区 的 功能 ， 用 户 可 以 创建 自己 的 选项 卡 和 组 ， 
还 可 以 重 命名 或 更 改 内 置 选项 卡 和 组 的 顺序 。 如 图 1-3 所 示 为 自 定义 的 功能 区 。 
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图 1-3 自 定义 的 功能 区 
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[SEOTRZEA 入 门 与 实战 
3. 从 更 多 地 点 、 更 多 设备 上 享受 熟悉 的 Excel 体验 
使 用 Excel 2010， 可 以 从 更 多 地 点 、 更 多 设备 上 更 轻松 地 完成 任务 。 可 以 在 智能 手机 或 
几乎 每 台 连 接 至 mntemet 的 计算 机 上， 随时 随地 进行 工作 。 


Microsoft Office Web Apps 将 Excel 2010 体验 扩展 到 Web， 可 以 在 线 存储 Excel 文件 ， 然 
后 通过 Web 访问 、 查 看 、 编 辑 和 共享 文件 内 容 ， 如 图 1-4 所 示 。 
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1-4 保存 到 Web 功能 


4. 提供 强大 的 数据 分 析 和 可 视 化 功能 


使 用 Excel 2010 中 的 数据 分 析 和 可 视 化 功能 可 以 跟踪 和 亮 显 重要 的 趋势 , 如 图 1-5 所 示 。 
使 用 新 增 的 Sparklines 功能 可 以 在 工作 表单 元 格 中 使 用 小 图 表 来 清晰 简洁 地 表达 数据 。 使 用 
Slicers 功能 可 以 在 多 个 层 对 PivotTable 数据 进行 过 滤 和 拆 分 ， 从 而 可 以 减少 格式 设置 时 间 ， 
增加 分 析 时 间 。 


图 1-5 强大 的 数据 分 析 和 可 视 化 功能 
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5. Backstage 视图 

Backstage 视图 是 Microsoft Excel 2010 程 序 中 的 新 增 功能 , 它 是 Microsoft Office Fluent 用 
户 界 面 的 最 新 创新 技术 ， 并 且 是 功能 区 的 配套 功能 。 选 择 【 文 件 】 菜 单 即 可 打开 Backstage 
视图 ， 如 图 1-6 所 示 ， 用 户 可 在 此 打开 、 保 存 、 打 印 、 共 享 和 管理 文件 以 及 设置 程序 选项 。 
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图 1-6 ”Backstage 视图 


6. 快速 、 有 效 地 比较 数据 列表 


在 Excel 2010 中 ， 迷 你 图 和 切片 器 等 新 增 功能 以 及 对 数据 透视 表 和 其 他 现 有 功能 的 改进 
可 帮助 用 户 了 解数 据 中 的 模式 或 趋势 ， 从 而 做 出 更 明智 的 决策 ， 如 图 1-7 所 示 。 


图 1-7 迷你 图 


EY Excel 2010 的 界面 


Excel 的 工作 界面 主要 包括 标题 栏 、 功 能 区 、 工 作 表 编辑 区 、 状 态 栏 等 部 分 ， 如 图 1-8 所 
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示 。 通 过 该 工作 界面 ， 用 户 可 以 更 快速 、 更 轻松 地 找到 各 种 工具 ， 从 而 提高 工作 的 效率 。 
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图 1-8 ”Excel2010 的 工作 界面 


1. 【文件 】 菜单 


【文件 】 菜 单位 于 Excel 2010 工作 界面 的 左上 角 ， 用 绿色 显示 ， 选 择 【 文 件 】 菜 单 ， 
在 弹出 的 下 拉 菜 单 中 不 但 包含 有 Excel 早期 版 本 所 具有 的 【打开 站 【保存 】 和 【打印 】 等 
命令 ， 还 新 增 了 【信息 】 等 命令 。 另 外 ， 在 下 拉 菜 单 的 右 侧 显示 了 最 近 使 用 过 的 文档 ， 如 


图 1-9 所 示 。 
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1-9 【文件 】 菜 单 


2. 标题 栏 
Excel 2010 的 标题 栏 也 与 以 前 的 版 本 有 所 不 同 。 默 认 状 态 下 ,【 标 题 栏 ] 左 侧 显示 的 是 【 快 
速 访问 工具 栏 〗 中 间 显 示 的 是 当前 表格 的 文件 名 称 ， 右 侧 显 示 的 是 窗口 控制 按钮 。 其 中 ， 窗 
口 控制 按钮 包括 【最 小 化 】 号 、【 最 大 化 】 轧 和 【关闭 】 国 等 3 个 按钮 。 启动 Excel 2010 后 ， 
标题 栏 中 显示 的 默认 文件 名 为 “工作 每 1”。 
3. 快速 访问 工具 栏 
Excel 2010 的 快速 访问 工具 栏 中 包含 最 常用 操作 的 快捷 按钮 ， 方 便 用 户 使 用 。 在 默认 状 
态 中 ， 快 速 访问 工具 栏 中 包含 【保存 】【 撤 销 】》 和 【恢复 】 按 钮 ， 如 图 1-10 所 示 。 
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图 1-10 快速 访问 工具 栏 

如 果 想 在 快速 访问 工具 栏 中 添加 或 删除 其 他 按钮 ， 可 以 单 击 【 自 定义 快速 访问 工具 栏 】 
按钮 ， 在 弹出 的 下 拉 列 表 中 选择 需要 在 快速 访问 工具 栏 中 显示 的 命令 。 在 该 下 拉 列 表 中 ， 可 
以 看 到 被 显示 的 命令 前 面 有 一 个 对 号 表示 处 于 被 选中 的 状态 。 
4. 功能 区 选项 卡 

功能 区 选项 卡 是 一 种 特殊 的 选项 板 ， 位 于 工作 表 编 辑 区 的 上 方 ， 是 菜单 栏 和 工具 栏 的 主 
要 替代 工具 。 默认 状态 下 , 功能 区 选项 卡 中 包含 【开始 】、【 插 入 【页面 布 局 【公式 【 数 
据 】【 审 阅 】【 视 图】 等 选项 卡 ， 每 个 选项 卡 包含 若 干 个 选项 组 ， 每 个 选项 组 又 包含 许多 由 
图 标 表示 的 命令 按钮 ， 如 图 1-11 所 示 。 为 了 方便 运用 ， 某 些 选 项 卡 只 有 在 需要 时 才 显 示 。 
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图 1-11 功能 区 选项 卡 
另外 ， 在 功能 区 选项 卡 的 标签 最 右 侧 显示 了 工作 短 的 一 些 控制 按钮 ， 包 括 【 帮 助 】 息 、 


【最 小 化 】=、【 最 大 化 】se 和 【关闭 】 国 等 4 个 按钮 。 单 击 【 帮 助 】 按 钮 @ 或 直接 按 【F1]】 键 ， 
可 以 打开 【Excel 帮助 】 窗 口 ， 如 图 1-12 所 示 。 
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图 1-12 【Excel 帮助 】 窗 口 


5. 编辑 栏 


编辑 栏 位 于 功能 区 的 下 方 、 工 作 表 编 辑 区 的 上 方 。 编 辑 栏 用 于 显示 和 编辑 当前 活动 单元 
格 中 的 数据 和 公式 。 
编辑 栏 由 3 部 分 组 成 ， 分 别 为 左 侧 的 名 称 框 、 中 间 的 功能 按钮 和 右 侧 的 公式 框 。 


刀 "VE E 
® 名 称 框 : 用 于 显示 当前 被 选中 单元 格 的 地 址 和 名 称 。 
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® 功能 按钮 : 当 向 单元 格 中 输入 数据 时 ,位 于 名 称 框 和 公式 框 之 间 的 功能 按钮 显示 , 包括 【确定 】 
按钮 VY 和 【取消 〗 按 钮 XxX。 单 击 【 确 定 〗 按 钮 VW， 可 以 确定 该 单元 格 的 内 容 ， 退 出 编辑 状态 ; 
单 击 【取消 〗 按 钮 X， 可 以 取消 对 该 单元 格 的 编辑 。 

。 公式 框 : 主要 用 于 向 活动 单元 格 中 输入 、 修 改 数据 。 单 击 公式 框 左 侧 的 〖 插 入 函数 】 按 钮 去 ， 
弹出 【插入 函数 〗 对 话 框 ， 如 图 1-13 所 示 。 可 以 通过 该 对 话 框 查找 和 插入 需要 的 函数 。 


SM (nanberl, number2, ... ) 
计算 单元 格 区 域 中 所 有 数值 的 和 


图 1-13 【插入 函数 】 对 话 框 


6. 工作 表 编 辑 区 
工作 表 编 辑 区 是 Excel 2010 操作 界面 中 用 于 输入 数据 的 区 域 ， 由 位 于 左 侧 的 行 号 、 下 侧 
的 列 号 、 左下 侧 的 工作 表 标 签 、 右 侧 与 下 侧 的 滚动 条 以 及 中 间 的 单元 格 组 成 , 如 图 1-14 所 示 。 

在 单元 格 中 可 以 输入 不 同类 型 的 数据 。 
A B C D E PF G H 1 Fi a 
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1-14 工作 表 编 辑 区 


7. 状态 栏 


状态 栏 位 于 工作 界面 的 最 下 方 ， 用 于 显示 当前 数据 的 编辑 情况 和 调整 页 面 显示 比例 ， 如 
图 1-15 所 示 。 


六 | 国 B 10% CY 
图 1-15 ”状态 栏 
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页 面 显 示 控 制 区 包括 常用 视图 按钮 和 页 面 显 示 比 例 大 小 控制 滑 块 。 

页 面 显 示 控制 区 从 左 到 右 依次 是 【普通 【页 面 布局 】 和 【分 页 预览 】 视 图 按钮 ， 以 及 
页 面 显示 比例 大 小 控制 滑 块 。 以 黄色 为 底 表示 当前 正在 使 用 的 视图 方式 ， 缩 放 级 别 随 着 滑 块 
的 拖 动 而 改变 ， 向 左 拖 动 滑 块 减 小 文档 显示 比例 ， 向 右 拖 动 滑 块 增 大 文档 显示 比例 。 


个 2 
用 Excel 2010 开发 应 用 程序 的 优势 


与 一 般 的 开发 平台 相 比 ， 使 用 Excel VBA 开发 应 用 程序 有 自己 独特 的 优势 。 


(1) 超 快 的 开发 速度 。 一 般 情 况 下 ， 客 户 对 产品 的 需求 比较 着 急 ， 采 用 其 他 语言 开发 ， 
周期 长 ， 而 客户 最 关注 的 是 开发 的 应 用 程序 能 和 否 满足 工作 的 需求 ， 而 不 是 用 哪 种 语音 开发 。 
使 用 Excel VBA 开发 应 用 程序 的 周期 一 般 是 其 他 语言 的 一 半 ， 甚 至 更 短 ， 提 高 了 项 目 完 成 的 
效率 。 

(2) 功能 强大 易 开 发 。 用 户 可 以 直接 在 Excel 中 创建 VBA 应 用 程序 ， 与 其 他 语言 相 比 更 
容易 学 习 和 使 用 ， 而 且 功能 十 分 强大 ， 能 实现 很 多 复杂 的 功能 。 

(3) 代码 重复 利用 率 高 ， 当 代码 编写 完成 后 ， 只 要 编码 规范 ， 有 很 好 的 注释 ， 二 次 开发 
时 工作 比较 轻松 ， 代 码 可 以 重复 利用 。 

(4) 界面 设计 效率 高 。 和 其 他 语言 相 比 ， 使 用 Excel VBA 制作 用 户 界 面 的 速度 很 快 ， 非 
常 容 易 添 加 控件 ， 例 如 按钮 、 复 选 框 和 列表 框 等 ， 实 现 这 些 控件 的 功能 几乎 不 需要 任何 宏 代 
码 。 

(5) 定制 各 个 界面 元 素 。 用 户 可 以 使 用 窗 体 很 容易 创造 各 个 界面 元 素 ， 包 括 十 分 专业 的 
对 话 框 ， 右 击 弹 出 的 各 种 快捷 菜单 、 工 具 栏 和 菜单 栏 。 

(6) 自 定义 工作 表 函 数 。 使 用 VBA 可 以 创建 各 种 需求 的 函数 公式 ， 完 成 复杂 的 数据 处 
理工 作 。 

(7) 强大 的 数据 分 析 功 能 。 使 用 Excel 2010 的 数据 透视 表 功 能 可 以 很 容易 地 对 大 量 的 数 
据 进 行 汇总 ， 从 而 大 大 提高 工作 效率 。 

(8) 访问 外 部 数据 很 容易 。 通 过 提供 ADO 和 DAO 两 个 对 象 模型 ， 使 VBA 应 用 程序 很 
容易 访问 外 部 数据 。 


.3 
Excel 应 用 程序 结构 


使 用 VBA 创建 Excel 应 用 程序 有 一 定 的 结构 规范 ， 下 面 将 简单 介绍 其 构成 。 
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Excel 应 用 程序 的 构成 


从 开发 者 角度 分 析 ，Excel VBA 应 用 程序 由 工作 表 、 用 户 窗 体 、 模 块 和 类 模块 等 部 分 
组 成 。 

工作 表 主 要 对 数据 进行 组 织 和 分 析 , 是 程序 的 主体 部 分 。 在 工作 表 中 设置 好 样式 和 格式 ， 
通过 VBA 代码 获取 表格 中 的 数据 ， 经 过 加 工 处 理 后 将 其 显示 在 相应 的 单元 格 中 ， 以 便于 用 
户 进行 查看 或 打印 等 操作 。 

在 Excel VBA 应 用 程序 中 , 用 户 除 了 可 以 使 用 工作 表 直 接 进行 交互 外 , 还 可 以 添加 窗 体 ， 
用 来 和 用 户 进行 操作 。 使 用 窗 体 的 好 处 是 : 可 以 将 用 户 与 数据 表 中 的 数据 很 好 地 隔离 ， 提 高 
了 数据 的 安全 性 ， 使 不 同 权限 的 用 户 看 到 不 同 的 数据 范围 。 

模块 中 可 以 保存 程序 的 通用 过 程 ， 其 他 程序 可 以 直接 调用 。 在 Excel VBA 中 用 户 可 以 添 
加 、 移 除 、 导 入 和 导出 模块 等 操作 。 

在 Excel VBA 应 用 程序 开发 的 过 程 中 ， 用 户 既 可 以 使 用 系统 自 带 的 对 象 ， 也 可 以 自 定义 
对 象 ， 只 要 将 自 定义 的 类 保存 在 类 模块 中 即 可 。 


戎 辐 面向 对 象 编程 机 制 


和 大 部 分 语言 编程 一 样 ，Excel VBA 也 支持 面向 对 象 编程 机 制 。 对 象 是 对 现实 世界 实体 
的 模拟 ， 由 实现 实体 的 过 程 来 定义 。 一 个 对 象 可 被 认为 是 一 个 把 数据 和 事件 封装 在 一 起 的 实 
体 ， 这 个 程序 产生 该 对 象 的 动作 。 事 件 可 以 通过 单 击 鼠 标 或 者 按键 的 操作 产生 ， 也 可 以 通过 
一 个 窗口 的 操作 产生 等 。 在 VBA 中 ， 通 过 事件 驱动 提供 开发 人 员 与 系统 的 接口 ， 开 发 人 员 
通过 编写 事件 过 程 来 处 理 该 事件 时 需要 完成 的 工作 ， 例 如 单 击 鼠 标 可 以 关闭 一 个 对 话 框 。 

在 面向 对 象 编程 机 制 中 ， 代 码 的 执行 顺序 不 按照 预定 的 顺序 执行 ， 而 是 根据 不 同 的 事件 
执行 不 同 的 代码 。 事 件 的 触发 方式 很 多 ， 既 可 以 是 用 户 直接 操作 触发 ， 也 可 以 是 操作 系统 或 
其 他 应 用 程序 的 消息 触发 ， 还 可 以 是 应 用 程序 本 身 的 消息 触发 。 所 以 事件 的 顺序 决定 了 代码 
执行 的 顺序 ， 每 次 代码 运行 的 路 径 会 有 所 不 同 。VBA 编写 开发 应 用 程序 ， 实 际 上 是 编写 不 同 
对 象 的 事件 代码 。 


1.4 
Excel 应 用 程序 开发 流程 


了 解 应 用 程序 的 开发 流程 ， 对 提高 工作 效率 有 很 大 的 帮助 。 在 进行 Excel VBA 应 用 程序 
开发 的 过 程 中 , 读者 可 以 参照 Visual Basic 开发 应 用 程序 的 方法 ,总结 Excel 应 用 程序 开发 的 
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[Excel 2010 VBA NEI 
| 需求 分 析 


在 进行 Excel 应 用 程序 开发 前 ， 需 要 仔细 分 析 用 户 的 需求 。 需 求 分 析 如 果 做 不 好 ， 会 直 
接 影响 后 续 的 开发 工作 。 一 旦 需求 分 析出 现 大 的 失误 ， 程 序 开发 工作 将 会 从 头 再 来 ， 严 重 影 
响 工作 效率 。 

所 谓 需求 分 析 ， 是 指 对 要 开发 的 程序 进行 详细 的 分 析 ， 弄 清 应 用 程序 的 要 求 ， 包 括 需 要 
输入 什么 数据 ， 要 得 到 什么 结果 ， 最 后 应 输出 什么 。 通 俗 地 说 ， 需 求 分 析 就 是 确定 计算 机 要 
做 什么 工作 。 

需求 分 析 的 主要 任务 如 下 。 


(1) 功能 需求 : 列举 出 所 开发 软件 在 功能 上 应 做 什么 ， 这 是 最 主要 的 需求 。 

(2) 环境 需求 : 主要 是 分 析 软 件 系统 所 处 的 环境 需求 。 具 体 包括 硬件 要 求 、 系 统 要 求 、 
Excel 开发 平台 的 版 本 等 。 

(3) 可 靠 性 需求 : 各 种 软件 运行 时 ， 失 效 的 影响 各 不 相同 。 在 需求 分 析 时 ， 要 分 析 故 障 
出 现 的 概率 ， 按 不 同 的 环境 运行 提出 要 求 。 

(4) 安全 保密 工作 需求 : 对 客户 的 保密 工作 在 本 阶段 进行 分 析 。 

(5) 用 户 界面 需求 : 软件 与 用 户 界面 的 友好 性 是 用 户 能 够 方便 有 效 地 使 用 软件 的 关键 之 
。 无论 是 从 用 户 的 使 用 角度 还 是 从 市 场 角度 分 析 ， 上 有 具有 友好 用 户 界面 的 软件 都 具有 很 强 的 
竞争 力 。 在 需求 分 析 阶 段 ， 要 提出 用 户 界面 需求 分 析 。 


网 轴 界面 设计 
界面 是 用 户 与 应 用 程序 直接 交流 的 桥梁 ， 所 以 好 的 应 用 程序 必须 有 好 的 人 性 化 界面 。 开 
发 人 员 在 设计 界面 时 ， 一 定 要 牢 牢 把 握 方便 用 户 操作 这 一 基本 原则 ， 并 贯穿 到 设计 界面 中 。 
Excel 2010 取消 了 工具 栏 和 菜单 栏 ， 与 之 代替 的 是 功能 面板 。 在 Excel 2010 中 进行 界面 
设计 的 方式 主要 有 以 下 几 种 。 


1. 在 比较 简单 的 应 用 程序 中 

可 向 工作 表 中 添加 按钮 或 其 他 控件 , 然后 与 宏 代码 进行 绑 定 。 如 图 1-16 所 示 是 在 工作 表 
中 制作 的 一 个 员工 管理 表 。 
2. 用 户 窗 体 


用 户 界面 是 应 用 程序 的 一 个 重要 组 成 部 分 。 在 Excel 2010 应 用 程序 中 ， 用 户 窗 体 作为 应 
用 程序 的 用 户 界面 部 分 ， 将 用 户 的 操作 和 Excel 工作 表 中 的 数据 完全 隔离 开 。 如 图 1-17 所 示 
为 设计 好 的 用 户 窗 体 。 
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员工 管理 


请 输入 用 户 名 ， SUD46l2 
员工 资料 用 户 名 [i 
Sm | 
ae RH 和 [SR 


mw | mw | jaw | 


1-16 员工 管理 系统 程序 界面 图 1-17 用 户 窗 体 


3. 自 定义 功能 区 


功能 区 是 Excel 2010 和 早期 2003 版 本 不 同 的 地 方 ,取代 了 菜单 栏 和 工具 栏 ,可 使 用 XML 
代码 自 定义 功能 区 。 如 图 1-18 所 示 为 自 定义 的 【图 书 管理 系统 】 功 能 区 。 


图 | 加 5Sl> 图 书 管理 系统 .doc 鲁 容 模式 ] - Microsoft Word 口 回 ! 
文件 图 书 管理 系统 ol 


面 而 对 3 上 骨 EY 


录 注册 电子 邮件 | 同类 图 搜索 图 书 | 新 增 入 库 出 除 过 | 推出 系统 
Pt ~ 对 强 书 


登录 窗口 图 书 搜索 图 书 管理 推出 系统 


1-18 自 定 义 的 【图 书 管理 系统 】 功 能 区 


项 到 设计 代码 

用 户 界面 设计 完成 后 ， 要 想 实现 功能 操作 ， 就 需要 添加 相关 的 事件 代码 ， 如 用 户 窗 体 中 
的 代码 、 功 能 区 中 的 按钮 等 。 

在 Excel 中 设计 VBA 应 用 程序 时 , 界面 设计 和 代码 设计 的 先后 顺序 没有 严格 的 规定 。 用 
户 既 可 以 先 设计 好 界面 后 编写 相关 代码 ， 也 可 以 编写 好 代码 后 设计 相关 用 户 界面 元 素 ， 并 进 
行 绑 定 操作 ， 这 要 根据 实际 的 操作 来 定 先后 的 顺序 。 


1.4.4 帮助 系统 


-个 完整 的 Windows 应 用 系统 往往 包括 在 线 电子 文档 的 帮助 系统 , 可 以 让 用 户 尽快 理解 
和 熟悉 系统 的 功能 。 在 Excel 中 设计 VBA 应 用 程序 时 ,特别 是 对 于 大 型 的 应 用 系统 ,也 可 以 
制作 这 种 帮助 系统 。 如 图 1-19 所 示 为 Word 的 在 线 帮助 系统 。 


Wh 
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Wed Sr 
二 局 了 二 全 外电 有 


Word 砷 助 f 


训 讽 Word 帮助 


协作 再 拯 更 改 和 广 依 
访 置 本 次 日 时 和 其他 参 入 
保 闻 条 印 


图 1-19 Word 的 在 线 帮助 系统 


14.5 测试 与 调试 系统 


应 用 程序 设计 完成 后 ， 用 户 还 必须 进行 系统 的 测试 和 调试 工作 ， 这 是 非常 重要 的 一 步 。 
在 设计 测试 的 数据 时 ， 尽 可 能 多 地 考虑 不 同 的 情况 ， 用 不 同类 型 的 数据 去 测试 系统 的 显示 结 
果 。 在 设计 测试 数据 的 同时 ， 应 编写 出 测试 数据 的 理想 结果 ， 并 与 应 用 程序 的 实际 结果 进行 
对 比 ， 如 果 不 同 ， 则 要 做 相关 的 代码 调试 工作 。 

如 图 1-20 所 示 为 系统 数据 测试 显示 的 提示 对 话 框 。 


Microsoft Excel 区 


语 公 司 没有 这 个 员工 ,用户 名 输入 有 误 ? 
[ED 


图 1-20 数据 测试 显示 的 提示 对 话 框 


1.4.6 发 布 系统 


系统 测试 无 误 后 ， 即 可 发 布 给 最 终 用 户 使 用 了 。 在 发 布 时 需要 考虑 以 下 几 个 问题 。 


(1) 用 户 使 用 环境 ， 如 果 是 在 Excel 2010 环境 下 开发 的 应 用 程序 ， 并 使 用 了 Excel 2010 
的 新 功能 ， 就 要 求 用 户 也 要 使 用 Excel 2010 版 本 。 如 果 用 户 用 的 是 早期 版 本 ， 则 需要 将 新 功 
能 的 代码 作 相关 的 调整 ， 以 适应 早期 版 本 的 环境 需求 。 

(2) 动态 链接 库 。 如 果 应 用 程序 中 使 用 了 ActiveX 控件 ， 则 需要 考虑 是 否 需 要 将 包含 该 
控件 的 动态 链接 库 文件 也 包含 在 应 用 程序 中 一 起 发 布 。 

(3) 相关 辅助 文件 。 在 一 个 复杂 的 应 用 程序 中 ， 可 能 会 包含 很 多 复杂 文件 ， 如 图 片 文 件 、 
帮助 文件 、 数 据 库 文件 等 ， 需 要 将 这 些 文件 也 包含 在 发 布 文件 中 。 并 且 最 好 将 其 路 径 修改 为 
相对 路 径 ， 这 样 可 以 在 任意 盘 符 下 都 可 以 正常 访问 。 
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第 1 章 ”Excel 2010 开发 平台 概述 


1.5 
如 何 掌握 Excel VBA 编程 


要 学 好 ExcelVBA， 就 要 做 到 如 下 几 点 。 


(1) 保持 良好 的 心态 ， 思 路 要 清晰 ， 扎 扎实 实 ， 切 鼠 急于 求 成 。 | 
看 到 Excel 的 一 个 个 新 奇 的 功能 ， 感 到 很 兴奋 ， 于 是 巴不得 一 下 子 全 学 会 ， 公 式 与 函数 、 | | 
VBA 编程 ， 一 股 脑 儿 全 开始 试验 ， 结 果 没 有 明确 的 目标 ,觉得 很 乱 ， 虽 然 花 了 很 多 时 间 , 但 : 
是 没 多 大 收获 。 i 
(2) 基本 的 东西 是 很 重要 的 , 许多 复杂 的 东西 都 是 由 简单 基本 的 东西 组 成 的 。 Excel VBA | 
也 不 例外 。 ;i 
对 Excel 的 基本 命令 、 操 作 和 功能 的 了 解 是 关键 。 大 多 数 人 可 能 有 这 样 的 体会 ， 有 时 候 “|| 
想 得 很 复杂 的 东西 ， 其 实在 Excel 中 几 个 基本 的 功能 就 解决 了 ， 所 以 与 其 一 开始 就 是 函数 、 | i 
公式 、VBA 什么 的 ， 倒 不 如 先 将 Excel 的 基本 功能 理解 清楚 。 一 般 用 Excel 里 已 存在 的 功能 :| 
是 最 快捷 的 ， 要 处 理 的 是 那些 Excel 的 基本 功能 不 能 实现 的 ， 或 者 是 需要 综合 运用 Excel 的 ”i 
基本 功能 来 提高 工作 效率 的 。 同 样 的 道理 ， 只 有 对 基本 功能 了 解 清楚 了 ， 才 能 更 好 地 为 自己 | 
的 工作 便利 而 开发 利用 ， 从 而 上 升 到 更 高 的 层次 。 ii 
还 有 ， 就 是 不 要 被 复杂 的 东西 所 吓 倒 ， 例 如 ， 有 一 些 结果 的 实现 用 到 了 很 长 、 很 复杂 的 | 
公式 和 函数 ， 其 实 你 把 这 个 公式 一 分 解 就 知道 它 是 按 步骤 由 简单 的 公式 和 函数 组 合 而 成 的 。 ”让 
再 有 一 点 就 是 ， 考 虑 问题 要 尽 可 能 简单 ， 实 用 的 东西 不 一 定 是 很 复杂 的 东西 ， 有 一 些 实 | 
现 结果 的 方式 和 程序 实际 上 很 简单 ， 也 很 有 用 。 ii 
(3) 要 选择 好 的 参考 书 并 经 常 在 优秀 的 网 上 论坛 交流 。 . 
近 几 年 来 ， 特 别 是 2003 年 以 来 ， 关 于 Office 方面 的 书 越 来 越 多 ， 但 大 多 是 讲 基本 操作 |i 
的 ， 很 简单 、 重 复 的 内 容 也 很 多 ， 此 外 ， 还 有 一 些 关于 Office 操作 技巧 方面 的 书 ， 都 不 是 很 | | 
深入 ， 这 方面 的 书 ， 看 得 眼花 缚 乱 ， 收 效 也 不 大 ， 所 以 选择 好 的 参考 书 是 很 重要 的 一 个 方面 。 ;i 
在 学 习 过 程 中 还 有 很 重要 的 一 点 ， 就 是 要 经 常 进行 交流 。 现 在 网 络 给 我 们 提供 了 一 个 很 ; 
好 的 交流 平台 ， 在 网 络 上 有 一 些 很 好 的 Excel 网 站 论坛 ， 可 以 在 上 面 交流 自己 的 学 习 成 果 、 | i 
学 习 别 人 好 的 做 法 和 经 验 。 同 时 ， 对 别人 提出 的 问题 进行 思考 和 解答 ， 也 很 有 利于 自己 水 平 “| 
的 提高 ， 一 方面 可 以 帮助 别人 解决 问题 ， 另 一 方面 也 可 以 看 看 别 的 网 友 是 怎样 解决 问题 的 ， 
从 中 获得 思路 和 灵感 。 但 切 咏 沉 迷 其 中 并 不 深入 思考 ， 因 为 网 站 论坛 上 Excel 的 学 习 资料 是 
很 多 的 ， 功 能 技巧 和 源 代码 也 很 多 ， 但 这 只 是 便于 辅助 学 习 和 积累 。 千 万 不 要 沉迷 于 Excel 
论坛 ， 巴 不 得 把 上 面 的 资料 和 程序 全 下 载 到 自己 的 计算 机 上 ， 下 载 后 资料 是 很 多 ， 但 很 少 去 
看 去 思考 , 还 有 看 到 别人 实现 了 某 种 算法 和 功能 后 感到 很 新 奇 , 自己 也 模仿 但 不 明白 为 什么 ， 
花费 了 大 量 的 时 间 也 没 学 到 什么 。 
(4) 多 使 用 ， 多 练习 ; 多 思考 ， 多 归纳 ; 多 记忆 ， 注 意 学 习 的 方法 和 技巧 ， 有 意识 地 养 


AAA 


[ETRTEA 入 门 与 实战 


成 良好 的 Excel 应 用 操作 和 VBA 编程 习惯 。 

基本 的 东西 掌握 后 ， 那 就 是 要 多 使 用 、 多 练习 了 ， 在 使 用 过 程 中 熟练 应 用 并 发 现 和 学 习 
更 多 新 的 东西 。 对 发 现 的 问题 尽量 自己 思考 解决 ， 对 知识 点 进行 系统 归纳 ， 一 方面 便于 查找 
和 应 用 ， 另 一 方面 也 便于 记忆 。 

此 外 ， 要 注意 学 习 的 方法 和 技巧 。 其 实在 学 习 过 程 中 ， 遇 到 问题 后 ， 如 果 参 考 书 上 查询 
较 难 的 话 ，Excel 的 帮助 是 一 个 不 错 的 选择 ， 它 提供 了 大 量 最 具 价 值 的 参考 资料 ， 尤 其 是 在 
使 用 Excel 的 公式 与 函数 和 VBA 的 时 候 。 

Excel 中 的 VBA 也 许 是 大 家 很 感 兴趣 的 ， 它 可 以 更 大 范围 地 发 挥 Excel 的 强大 潜能 ， 但 
VBA 很 难 学 , 特别 是 对 于 没有 基础 的 人 来 说 。 可 是 学 好 VBA 是 很 有 好 处 的 , 将 Excel 的 VBA 
学 好 了 ， 其 他 软件 上 的 VBA 也 就 不 难 了 ， 再 说 VBA 可 以 发 挥 Excel 更 强 的 功能 。 刚 开始 的 
时 候 ，VBA 是 很 难 掌握 的 ， 一 旦 入 门 后 就 顺利 了 。 可 以 利用 Excel 中 的 录制 宏 学 习 ， 特 别 是 
在 编写 VBA 程序 的 时 候 ， 遇 到 不 明白 的 问题 后 利用 录制 宏 的 功能 查看 相应 功能 的 实现 代码 
是 很 有 用 处 的 ， 确 定 一 个 开发 目标 ， 不 断 地 实践 和 试验 ， 加 强 VBA 源 代码 的 学 习 和 分 析 。 

(5) 坚持 学 习 ， 保 持 兴 趣 。 

其 实学 习 计 算 机 有 一 个 很 大 的 特点 就 是 ， 成 果 可 以 体现 出 来 ， 至 少 可 以 当即 在 自己 的 计 
算 机 上 实现 ， 有 成 就 感 ， 可 以 在 网 站 论坛 交流 ， 帮 助 别人 解答 问题 ， 自 己 有 疑惑 也 可 以 提出 
来 ， 也 看 看 别人 所 实现 的 成 果 ， 这 也 可 以 保持 自己 的 兴趣 。 此 外 ， 现 在 办 公 一 般 都 有 Excel， 
帮助 同事 和 朋友 解决 问题 也 是 一 大 乐事 ， 也 可 以 提高 自己 学 习 的 兴趣 和 激情 。 还 有 ， 要 结合 
自己 的 工作 实践 和 解决 实际 应 用 问题 来 学 习 ， 也 能 极 大 地 促进 自己 的 学 习 兴趣 。 
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第 2 章 Excel 2010 VBA 的 开发 环境 


掌握 和 运行 任何 程序 之 前 ， 熟 悉 程序 的 开发 环境 都 是 一 件 很 有 必要 的 事情 。Excel 提供 
有 VBE 的 开发 界面 ， 即 Visual Basic 编辑 器 (VBE) 窗口 。 在 该 窗口 中 用 户 可 以 实现 应 用 程 
序 的 编号、 调试 和 运行 等 操作 。 本 章 主要 讲述 VBE 的 简介 、VBE 的 子 窗口 、 定 制 VBE 环境 
和 使 用 帮助 等 知识 。 


D1 
VBE 简介 


任何 一 门 语言 都 有 自己 的 开发 环境 ，VBA 虽然 与 Microsoft Office 套装 办 公 软 件 绑 定 ， 
但 是 它 也 拥有 自己 的 开发 界面 。Office 提供 了 VBE 开发 环境 ， 在 该 窗口 中 用 户 可 以 实现 应 用 
程序 的 编写 。 但 是 在 使 用 VBE 前 ， 必 须 先 运行 Excel 2010 软件 。 


加 二 VBE 概述 


所 谓 VBE， 其 实 就 是 VBA 的 编辑 环境 ， 即 编辑 VBA 代码 的 工具 。 在 VBE 开发 环境 中 , 用 
户 可 以 编辑 VBA、 调 试 宏 、 创 建 用 户 窗 体 、 查 看 或 修改 对 象 属性 等 操作 ， 如 图 2-1 所 示 。 


Mcronoft Visual Dasic Lor Appla ma -小 娃 机 cro kxcel 工作 表 .xlzx - 【村 抉 1 《代码 )】 看 必 
EET Tr s 


-CD 站 
i 可 画 


图 2-1 VBE 编辑 器 窗口 
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名 加 进入 VBE 


VBA 编辑 器 窗口 不 能 单独 打开 ， 必 须 依附 于 它 所 支持 的 应 用 程序 ， 也 就 是 只 有 在 运行 
Excel 的 前 提 下 才能 打开 。 


打开 VBA 编辑 器 窗口 有 如 下 几 种 方法 。 


在 Excel 工作 簿 中 ， 切 换 到 【开发 工具 】 选 项 卡 中 ， 单 击 【 代 码 】 组 中 的 Visual Basic 
按钮 ， 即 可 打开 Microsoft Visual Basic for Applications 窗口 ， 如 图 2-2 所 示 
国 | 四 9-Y- 国 I= 


到 插入 i 局 公式 数 关 市 网 视图 


FIR | Wt 
辐 2w= 有 总 国 并 这 2 
isual Basic， 产 ” 国 舍 B 相 对 引用 jogo COM jn 吉 项 揪 》 设计 要 Da Posi 
NR 全 去 安全 性 由 执行 对 活检 lee 
代码 tn 吉 项 控件 XML 


图 2-2 单 击 visual Basic 按钮 


@3 按 AlttF11 组 合 键 ， 也 可 快速 打开 Microsoft Visual Basic for Applications 窗口 
@ 旬 如 果 在 工作 表 中 添加 了 宏 ， 则 可 在 设计 模式 下 选择 【视图 】 


> 【 宏 】> 【查看 宏 】 菜 单 
命令 ， 即 可 打开 Microsoft Visual Basic for Applications 窗口 ， 如 图 2-3 所 示 


国 | 回避 "RS - 国 |- 新建 Microsoft Excel 工 作 要 xlsx - Microsoft Excel aa 日 
有 i。 才 入 。 REA 且 公式 。 数据 。 证 网 | 名和 | 有 RI 内 设计 EE 
国 | 图 smms gs 加 sse 息 鱼 国 唔 wmD 日 扩 人 n 尼 本 加 
| nsn ees me i | 100% ge | 日 RE 9: ey wen || 二 
国 全 网: iEEE 域 | 困 才情 - 口 Bijs 下 33 I 人 

工人 图 味 E24] Es 局 VW 

F5 a 至 列 1 | 加 a). R 
"| EE EE [on EE" EE 3 下 WE 
Li 


| 国 er mw 


2-3 选择 【查看 宏 】 菜 单 命令 


鸭 在 Excel 工作 表 控件 上 右 击 ,在 弹出 的 快捷 菜单 中 选择 【查看 代码 】 菜 单 命令 ， 即 可 打 
开 Microsoft Visual Basic for Applications 窗口 ， 如 图 2-4 所 示 


2-4 选择 【查看 代码 】 菜 单 命令 


@@ 加 在 Excel 工作 短 中 ， 切 换 到 【开发 工具 】 选 项 卡 中 ， 单 击 【 控 件 】 组 中 的 【查看 代码 】 
按钮 ， 即 可 打开 Microsoft Visual Basic for Applications 窗口 ， 如 图 2-5 所 示 
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国 | 回 9-- 国 I= 新 建 Microsoft Excel 工作 表 .xlsx - Microsoft Excel 
公式 数据 证 网 ”视图 | 开发 I 具 


国 秩 尼 ze 国 
加 莹 项 COM jp 莹 项 A 设计 楼 区 二 查看 代 源 
目 执行 对 
加 载 项 控件 


图 2-5 单 击 【 查 看 代码 】 按 钮 


pa VBE 操作 界面 


启动 VBE 操作 界面 以 后 ， 即 可 看 到 窗口 由 以 下 几 个 部 分 组 成 ， 包 括 菜单 栏 、 工 具 栏 、 
工程 窗口 、 属 性 窗口 、 代 码 窗口 、 用 户 窗 体 、 立 即 窗口 和 本 地 窗口 ， 如 图 %6 所 示 。 


文 煌 有。 志和 昌 视图 V) 插 A 四 格 K(O) 主 3(D) 
双关 加 ua 也 


Fe 
和 
§ 
四: 
| 
上 
| 
上 
| 
上 
上 


2-6 VBE 编辑 器 窗口 


。 菜单 栏 : 位 于 标题 栏 的 下 方 ， 包 括 【文件 【编辑 】 等 菜单 命令 ， 每 个 菜单 命令 都 包含 若干 个 
菜单 命令 ， 分 别 选 择 菜单 命令 中 的 相关 命令 就 可 以 执行 相应 的 操作 。 i 

。 工具 栏 : VBA 代码 编辑 窗口 提供 有 【标准 【编辑 】 【调试 〗 和 【用 户 窗 体 】4 种 工具 栏 ， 黑 
认 情 况 下 ， 显 示 的 是 【标准 】 工 具 栏 ， 用 户 可 以 单 击 菜单 栏 或 工具 栏 的 空白 处 ， 在 弹出 的 快捷 
菜单 中 选择 【编辑 】 【调试 】 或 【用 户 窗 体 】 选 项 ， 即 可 打开 相应 的 工具 栏 。 

。 工程 窗口 : 以 树 形 图 示 的 形式 显示 了 Excel 工作 秒 和 工作 表 等 对 象 ， 其 中 也 有 插入 的 窗 体 和 纺 
制 的 模块 。 可 以 把 每 一 个 打开 的 Excel 工作 短 都 看 作 一 个 工程 , 且 工 程 的 默认 名 称 为 VBAProject 
(工作 筹 名 称 ) 。 

。 属 性 窗口 : 类 似 于 产品 说 明 书 ， 其 中 列 出 了 所 选 Excel 对 象 的 属性 及 其 当前 设置 。 当 选 定 多 个 


xX 


Wy 
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控件 时 ， 属 性 窗口 则 包含 全 部 已 选 定 控件 的 属性 设置 ， 可 以 分 别 切 换 到 【〖 按 字母 序 〗 或 【 按 分 
类 序 〗 选 项 卡 查看 控件 的 属性 ， 也 可 以 在 属性 窗口 中 编辑 对 象 的 属性 。 

® 代码 窗口 : 其 功能 是 编辑 和 存放 VBA 代码， 相当 于 文字 编辑 器 。 

® 用 户 窗 体 : 在 工程 中 创建 窗口 或 对 话 框 。 可 以 画 出 并 查看 窗 体 上 的 控件 。 

® 立即 窗口 : 可 以 对 测试 的 代码 马上 给 出 结果 ， 供 程序 设计 者 参考 。 

® 本 地 窗口 : 可 自动 显示 出 所 有 在 当前 过 程 中 的 变量 声明 及 变量 值 。 


【提示 】〗 在 实际 开发 的 过 程 中 ，VBA 窗口 界面 中 所 有 的 功能 窗口 不 一 定 都 同时 显示 出 来 ， 用 户 可 以 根 
据 开 发 习惯 进行 修改 界面 ， 例 如 可 以 隐藏 不 常用 的 子 窗口 ， 还 可 以 更 改 子 窗口 的 大 小 和 位 置 等 操作 。 


2:> 
VBE 的 子 窗口 


了 解 了 VBE 的 窗口 后 ， 下 面 继续 详细 学 习 VBE 的 子 窗口 。 


区 到 工程 资源 管理 窗口 


在 VBA 的 【工程 】 窗 口中 ， 可 以 把 每 一 个 打开 的 Excel 工作 秒 看 作 一 个 工程 ， 且 工程 的 默 
认 名 称 为 VBAProject。 一 个 新 建 的 工作 筹 只 包含 Excel 对 象 ， 如 图 2-7 所 示 。 

如 果 工 程 中 包含 VBA 模块 或 用 户 窗 体 等 ， 那 么 工程 列表 中 同样 会 显示 出 相应 的 节点 ， 
如 图 2-8 所 示 。 


合 旺 crosoft Excel 对 象 
图 ] Sheetl (Sheet1) 
里] Sheet2 (Sheet2) 


et 
大 ] Sheet2 (Sheet2) 


Sheet3 (Sheet3) 
Thi sWorkbook 


图 2-7 默认 【工程 】 窗 口 图 2-8 包含 模块 和 窗 体 的 【工程 】 窗 口 


如 果 在 打开 的 VBA 窗口 中 没有 显示 【工程 】 窗口， 可 以 选择 【视图 】>【 工 程 资源 管理 
器 】 菜 单 命令 或 按 Ctrl+R 组 合 键 将 其 打开 。 


【提示 】〗 当 打开 VBA 时 ， 不 能 认定 当前 显示 的 代码 窗口 就 是 【工程 〗 窗 口中 高 亮 显示 的 对 象 所 对 应 的 
程序 窗口 ,为 确保 在 正确 的 代码 窗口 中 编辑 VBA 代码 , 通常 需要 在 【工程 〗 窗 口中 双击 需要 编辑 VBA 
代码 的 对 象 。 


如 果 用 户 想 要 在 【工程 】 窗 口中 进行 插入 模块 、 插 入 窗 体 、 导 入 文件 或 导出 文件 等 操作 ， 
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可 以 在 选中 相应 的 对 象 工程 名 称 后 ， 通 过 单 击 鼠 标 右键 ， 在 弹出 的 快捷 菜单 中 选择 相应 的 菜 
单 命令 来 完成 。 

另外 ， 在 【工程 】 窗 口中 可 以 删除 VBA 模块 ， 但 不 能 移 除 与 工作 短 或 工作 表 相 关联 的 
代码 模块 。 


国立 代码 窗口 


工程 中 的 每 一 个 对 象 都 有 一 个 相关 联 的 代码 窗口 ,该 窗口 的 主要 作用 是 编辑 和 存放 程序 。 
每 个 对 象 的 代码 窗口 都 是 由 【对 象 】 下 拉 列 表 框 `【 过 程 /事件 】 下 拉 列 表 框 【过程 视图 】 图 
等 部 分 组 成 的 ， 如 图 2-9 所 示 。 


| 【过 程 /事件 】 下 拉 列 表 杠 


殉 1 祷 到 
按 字母 序 | 按 分 类 序 | 
作 和 了 了 


【过 程 视图 】 图 标 ] | ， 


EI 


图 2-9 代码 窗口 
其 中 【对 象 】 下 拉 列 表 中 会 显示 所 选 对 象 的 名 称 。【 过程/ 事件 】 下 拉 列 表 中 会 列 出 指 
对 象 控件 显示 所 选 的 程序 ， 并 且 在 程序 代码 窗口 中 同一 时 间 只 能 显示 一 个 程序 ， 但 是 【全 模 
块 视图 】 模 式 在 同一 时 间 可 以 显示 多 个 程序 。 
如 果 要 查看 某 个 对 象 的 代码 窗口 或 要 在 指定 的 对 象 中 编写 程序 ， 只 需 在 【工程 】 窗 口中 
双击 该 对 象 即 可 打开 其 代码 窗口 。 


用 户 窗 体 


用 户 窗 体 是 显示 在 应 用 程序 中 的 对 话 框 ， 它 是 VBA 中 一 个 非常 重要 的 组 成 部 分 。 
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[SEOTRZEA 入 门 与 实战 
1. 插入 用 户 窗 体 
窗 体 的 添加 可 以 使 用 户 有 更 多 的 机 会 与 程序 对 话 。 插 入 用 户 窗 体 ， 除 了 在 【工程 资源 和 
理 器 】 窗 口中 单 击 筷 标 右键 的 方法 外 ， 用 户 还 可 以 通过 以 下 方法 来 实现 。 


(1) 在 VBA 编辑 窗口 中 选择 【插入 】>【 用 户 窗 体 】 菜 单 命令 ， 即 可 插入 用 户 窗 体 。 
(2) 在 【标准 】 工 具 栏 上 单 击 【 插 入 用 户 窗 体 】 按 钮 灸 : 右 侧 的 下 三 角 按钮 ， 在 其 下 拉 
列表 中 选择 【用 户 窗 体 】 选 项 即 可 。 


以 上 两 种 方法 都 可 以 插入 用 户 窗 体 ， 新 插入 的 用 户 窗 体 的 默认 名 称 为 UserForml、 
UserForm2 等 。 另 外 ， 在 插入 用 户 窗 体 的 同时 系统 还 会 自动 打开 控件 工具 箱 ， 如 图 2-10 所 
示 。 


2. 更 改 窗 体 名 称 


为 了 更 容易 识别 用 户 窗 体 ， 可 以 在 其 对 应 的 【属性 】 窗 口中 切换 到 【 按 字 母 序 】 选 项 卡 ， 
在 【名 称 】 文 本 框 中 输入 需要 设置 的 名 称 ， 即 可 更 改 【 工 程 】 窗 口中 该 用 户 的 显示 名 称 。 而 
更 改 用 户 窗 体 标题 栏 的 名 称 ， 如 图 2-11 所 示 。 


条 和 erosort xcol 工人 局] 站 | 必 


图 2-10 新 建 的 用 户 窗 体 图 2-11 更 改 用 户 窗 体 的 名 称 


3. 利用 控件 工具 箱 


可 以 利用 控件 【工具 箱 】 中 的 【命令 按钮 按钮 十 、【 文 字 框 ] 按钮 型 箱 【标签 按钮 人 | 
等 ， 在 用 户 窗 体 上 添加 相应 的 控件 ， 如 图 2-12 所 示 。 


4. 移 除 用 户 窗 体 


在 【工程 】 窗 口中 选择 要 移 除 的 用 户 窗 体 ， 如 这 里 要 移 除名 称 为 “搜索 ”的 窗 体 ， 单 击 
鼠标 右键 , 在 弹出 的 快捷 菜单 中 选择 【 移 除 搜索 】 菜单 命 令 , 系统 即 可 弹出 一 个 提示 对 话 框 ， 
单 击 【 否 】 按 钮 即 可 将 其 移 除 ， 如 图 2-13 所 示 。 
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Hicrosoft Yisual Basic for Applications ( 慷 | 


人 在 移 除 搜索 之 前 是 否 要 格 黄 导出 ? 
否 中 取消 天 助 
图 2-12 【工具 箱 】 对 话 框 图 2-13 【 移 除 搜索 】 的 提示 对 话 框 


P| 属性 窗口 


通过 【属性 】 窗 口 不 仅 能 够 更 改 用 户 窗 体 的 名 称 ， 还 可 以 设置 窗 体 的 背景 色 、 添 加 背景 
图 片 或 设置 图 片 的 显示 效果 等 。 
下 面 通过 更 改 属性 窗口 的 参数 为 例 进行 讲解 ， 具 体操 作 步 骤 如 下 。 


@ 贡 选择 需要 修改 属性 的 窗 体 ， 在 用 户 窗 体 对 应 的 【属性 】 窗 口中 切换 到 【 按 字母 序 】 选 项 
卡 ， 然 后 单 击 BackColor (背景 颜色 ) 文本 框 右 侧 的 下 三 角 按钮 ， 在 弹出 的 面板 中 选择 【 调 色 板 】 
选项 上 不， 如 图 2-14 所 示 。 

上 到 选择 合适 的 颜色 后 ， 即 可 发 现 窗 体 的 背景 发 生 了 变化 ， 如 图 2-15 所 示 。 


0 
Gone) 
0 - fnllousePointer] 

Gone) 各 


图 2-14 【 调 色 板 】 选 项 卡 2-15 ” 窗 体 背 景 设置 后 的 效果 


@ 划 如 果 添 加 的 为 背景 图 片 ， 则 可 在 【属性 】 窗 口中 设置 图 片 的 显示 效果 。 单 击 【Picture】 
文本 框 右 侧 的 【浏览 】 按 钮 …|， 如 图 2-16 所 示 。 Brome 
0 缚 弹出 【加 载 图片 】 对话 框 ， 选择 需要 显示 的 图 片 文件 ， 单 击 【 打 开 】 按 钮 ， 如 图 2-17 
所 示 。 
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文件 类 型 0); | 所 有 图 片 文件 


图 2-16 单 击 【浏览 〗】 按 钮 图 2-17 【加 载 图 片 】 对 话 框 


@ 鲍 即 可 将 图 片 加 载 为 窗 体 背 景 ， 然 后 在 PictureAlignment 文本 框 中 设置 图 片 的 对 齐 方 式 ， 
在 【PictureSizeMode】 文 本 框 中 设置 背景 图 片 的 显示 方式 ， 在 【PictureTiling】 文 本 框 中 设置 图 片 
在 窗 体 中 是 否 平衡 显示 等 效果 ， 如 图 2-18 所 示 。 


在 用 户 窗 体 上 双击 鼠标 即 可 打开 用 户 窗 体 的 代码 窗口 。 也 可 以 在 【工程 】 窗 口中 进行 切 
换 ， 即 单 击 【 查 看 对 象 】 按 钮 旦 ， 可 以 由 代码 窗口 转换 为 用 户 窗 体 界面 ， 单 击 【 查 看 代码 】 
按钮 瑟 ， 可 以 由 用 户 窗 体 界面 转换 为 代码 窗口 ， 如 图 2-19 所 示 。 


ermeott iowel Beaie for hyplieatien 建 本 ,paeel 工作 系 ..…。 司 是 大 
| zn0 wap wa WA moo wen S50 IAD amrw sow mee 
EA 


图 2-19 窗 体 的 代码 窗口 


定制 VBE 环境 


对 于 Excel 开发 人 员 来 说 ,还 应 该 掌握 如 何 定 制 VBE 环境 ， 即 根据 用 户 的 习惯 和 需要 来 
设置 Visual Basic 编辑 器 环境 选项 。 
下 面 以 定制 VBE 环境 为 例 进行 讲解 ， 具 体操 作 步 又 如 下 。 


团 / 打开 VBA 编辑 器 窗口 选择 【工具 】》> 【选项 】 菜 单 命令 ， 如 图 2.20 所 示 。 
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@ 芭 弹出 【选项 】 对 话 框 ,该 对 话 框 共 有 4 个 选项 卡 : 【编辑 器 】、【 编 辑 器 格式 】、【 通 


】 和 【可 连接 的 】. 在 【编辑 器 】 选 项 卡 中 可 以 定制 代码 窗口 ， 包 括 代 码 设置 和 窗口 设置 ， 如 
2-21 所 示 。 


注 


| 


友 自动 缩 进 (I) 


Tab 宽度 中: 及 


es 2 

图 2-20 选择 【选项 】 菜 单 命令 图 2-21 【编辑 器 】 选 项 卡 

【选项 】 对 话 框 中 各 个 参数 的 含义 如 下 。 

@ 【自动 语法 检测 〗: 选择 该 复 选 框 后 ， 在 输入 一 行 代码 后 ， 系 统 会 自动 检测 语法 。 如 果 未 选择 
此 复 选 框 ，VBE 通过 使 用 不 同 的 颜色 来 显示 语法 错误 的 代码 ， 此 时 不 会 弹出 提示 对 话 框 。 

@ 【要 求 变量 声明 〗: 选择 该 复 选 框 后 ，VBE 将 会 在 新 插入 的 模块 开始 处 增加 语句 “Option 

Explicit” ， 一 旦 出 现 此 语句 ， 必 须 在 定义 模块 中 使 用 每 个 变量 ， 否 则 将 出 现 错误 提示 。 
【自动 列 出 成 员 〗: 选择 该 复 选 框 ， 在 输入 代码 时 ，VBE 将 自动 列 出 对 象 的 成 员 列表 。 
【自动 显示 快速 信息 〗 选择 该 复 选 框 后 ， 将 显示 所 输入 函数 和 参数 的 信息 。 
【自动 显示 数据 提示 】: 选择 该 复 选 框 后 ， 将 显示 出 指针 所 在 位 置 的 变量 值 。 

【自动 缩 进 〗: 选择 该 复 选 框 ，VBE 将 按照 Tab 宽度 自动 缩 进 显示 每 行 代码 。 

【Tab 宽度 〗: 在 文本 框 中 输入 缩 进 量 ， 默 认 值 是 4 个 空格 ,设置 范围 为 1~32 个 空格 。 
【编辑 时 可 拖 放 文本 】〗: 选择 该 复 选 框 后 ， 将 允许 通过 拖 动 操作 来 复制 和 移动 代码 窗口 中 的 文 

本 。 

@ 【默认 为 查看 所 有 模块 〗; 选择 该 复 选 框 后 ， 在 代码 窗口 中 可 以 查看 模块 的 所 有 过 程 。 

@ 【过 程 分 隔 符 〗: 选择 该 复 选 框 后 ， 即 可 在 每 个 过 程 尾 端 显示 分 隔 符 条 。 


[0 邮 选择 【编辑 器 格式 】 选 项 卡 ， 在 【代码 颜色 】 列 表 中 选择 【标准 文本 】 选 项 ， 然 后 设置 ”和 
前 景色 、 背 景色 和 标识 色 ， 在 【字体 】 列 表 中 设置 字体 和 字号 ， 在 【示例 】 中 即 可 看 到 预览 效果 ， 
如 图 2-22 所 示 。 
较 选择 【通用 ] 选项 卡 ， 可 以 设置 VBE 的 工程 设置 ， 错 误 处 理 和 编译 设置 .一 般 情况 下 
采用 默认 的 设置 即 可 ， 如 图 2-23 所 示 。 
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ih 


ETA 入 门 与 实战 


选项 
规程 器 编辑 器 格式 | 通用 “| 可 连接 的 | 
[名 加 子 体 四 
EE 
证 洁 睛 训 立 本 大 
i 3 


久生 器 | 加 加 器 税 式 通用 。 | 可 连接 的 | 
护 辐 并 级 条 
厂 在 丢失 当前 状态 前 通知 00) 
庄 识 捅 区 
个 发 生 浇 误 则 中 断 @) 
太 在 类 模块 中 中 断 四 ) 
他 过 到 未 处 理 的 错误 时 中 断 到 ) 
编译 
请求 时 靖 译 吕 ) 

太 项 目 折 委 收 起 时 隐 韶 窗口 C) 。。 尽 后 台 纺 译 芭 ) 


忠文 本 十 EE 
3 兰 。 克 边界 标识 条 吧 ) 
示例 


六 色 由， 月 及 色 外: 标 R& 加 村 =| 
lm -| [一 一 二 ] [Es :] 


取消 帮助 
图 2-22 【编辑 器 格式 】 选 项 卡 图 2-23 【通用 】 选 项 卡 
@ 鳃 选择 【可 连接 的 】 选 项 卡 ， 用 户 可 以 选 出 要 连接 的 窗口 ， 如 图 2-24 所 示 。 连 接 发 生 在 


取消 必 助 


当 窗 口 附 加 到 其 他 可 连接 的 窗口 或 应 用 程序 窗口 的 边缘 时 。 当 移动 一 可 连接 的 窗口 时 ， 该 窗口 很 
快 地 移 向 此 位 置 上 .。 


{@g 设置 完成 后 ， 单 击 【 确 定 】 按 钮 ， 即 可 看 到 定制 的 VBE 环境 ， 如 图 2-25 所 示 。 


编 入 器 | 编 加 器 格式 | 通用 。 可 连接 的 | 
可 连接 的 
Fr en) 
订 本 地 窗口 Q) 
厅 败 视 窗口 由 


证 工程 资源 管理 器 2) 
六 属性 窗口 @) 
厂 对 象 浏览 器 介 ) 


图 2-24 【可 连接 的 】 选 项 卡 图 2-25 定制 的 VBE 编辑 器 窗口 


2.4 
使 用 帮助 


使 用 帮助 是 学 习 Excel VBA 最 快捷 的 方法 。Excel 提供 的 帮助 程序 非常 详细 ， 并 提供 了 
许多 例子 供 初学 者 学 习 。 和 普通 的 帮助 程序 相 比 ，Excel VBA 的 帮助 文档 更 加 人 性 化 ， 可 以 
帮助 用 户 快速 地 找到 需要 查找 的 内 容 。 

使 用 帮助 的 具体 操作 步骤 如 下 。 


@ 凤 打开 VBA 编辑 器 窗口 ， 将 光标 放 在 需要 查看 帮助 的 代码 的 某 个 对 象 、 方 法 或 属性 ， 例 
如 放 在 Sub 代码 上 ， 按 Fl 快捷 键 ， 如 图 2-26 所 示 。 
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OW wht) 
四书 允 物 9O Ha 时 宁 内 
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一 本 Suh 控 钮 !L_ClickO 
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3 


a 
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Paktera lsdil 


2-26 ”鼠标 放 在 Sub 代码 上 


上 到 弹出 Excel 帮助 窗口 ,并 显示 Sub 语句 的 相关 帮助 文档 , 用 户 可 以 查看 Sub 的 使 用 方法 ， 
如 图 2-27 所 示 。 


和 Excal 大 且 


Er 
ER 和 开工] | 
ar 
声明 子 过 程 的 名 称 ， 营 汐 ， 以 及 构 记 其 主人 的 代 凤 。 
| Pedie | misaal Ettial Soh ame [Crstis0] 
Be 
[en 
se 
Sub 河 问 的 活 丢 包 寺 下 面部 从 
摘 壕 
ee 
可 加 的 表示 内 有 在 亿 沪 大声 遇 的 税 吉 中 人 EL 它 过 粒 可 以 本 癌 识 Seb 过 糙 。 
Priend 可 选 的 ， 只 能 在 娄 径直 中 使 用 。 过 示 这 Sb 这 程 在 再 个 工程 中 者 是 可 见 的 ， 亿 和 对 对 象 实 全 的 棕 制 用 是 十 可见 的 。 
sse 全 sa 芝 介 人 册 和 Stot4e 改作 在 sa 六 不 产生 时 | 印 人 符合 了 这 凡生- 
a .Sob 抽取. 
wit 本 的， 人 机 时 要 从 Sok 芝 和 的 下 过 用 让 。 
Statanants 下 这 的 ，Snh 这 程 中 疡 扩 行 的 任 癌 千 句 措 ， 
其 中 的 rcijst 莹 娄 的 语法 以 及 汪 法 各 个 部 分 如 下 
[tieeaal Dyyal | 37&u 旧 Persahererl ruaueitt il he 6] [= tofoelireled 
部 分 荐 述 
Dptienal 本 选 的 。 来 示 参 茹 不 是 必 震 的 并 桂 子 .如 暴 使 用 了 i 和 硕 ， 则 sarelist 中 名 后 纹 地 列 攻 必 且 是 可 这 的 ,而 三 必须 痢 使 用 0ptional 关键 闻 主 明 .如果 馆 用 了 
a 
Dy¥al 可 选 的 表示 庄 基 凑 按 信 传 洋 。 
yi 可 沈 的 。 来 示 读 参 汰 接地 址 传 着。 ByEaE 是 Visnal aasi= 物 快 首先 项. 
Paraakrray 可 选 的 。 只 忆 于 argijzt 的 最 后 一 个 过 煞 , 指 | 
Paramkrray 基建 于 趟 岂 与 ByYal ,3yBef ,或 
的 志和 Et a 
EYE 本 ET 
图 2-27 Excel 帮助 窗口 
浏 监 二 了 学 三 S 训 入 
@ 引 如 果 用 户 想 浏览 帮助 文档 , 并 系统 学 习 VBA 的 相关 知识 , 可 以 直接 按 Fl 快捷 键 , 打开 
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Excel2010 VeA EE 


帮助 的 起 始 窗口 ， 单 击 窗口 中 的 相关 链接 ， 即 可 查看 帮助 文档 的 内 容 ， 如 图 2-28 所 示 。 


勤 Excel 帮 助 口 回 中 
上 外因 外 名 矶 所 志 电 | 
-放流 于 - 


Excel 2010 开发 人 员 参 考 帮 有 劲 和 全 四 方法 


浏览 Excel 2010 开发 人 员 参 考 帮助 
”Excel 2010 开 攻 人员 参 。 ”Visual Basic 用 户 界面 
考 帮助 


"Visual basic 概念 主题 “ Basic 如何“ 主 


”Visual Basic 语 言 参 考 ”Visual Basic 外 按 程序 
模 起 


主题 
欢迎 使 用 Microsoft Excel 2010 开发 人 员 参 考 
文章 


图 2-28 系统 默认 帮助 窗口 


绚 在 帮助 文档 窗口 中 , 用 户 也 可 以 在 搜索 框 中 直接 输入 需要 搜索 的 关键 词 , 例如 输入 sub， 
单 击 【 搜 索 】 按 钮 ， 即 可 显示 相关 的 搜索 结果 列表 ， 如 图 2-29 所 示 。 


入 Excel 和 帮助 [= 
EEC 

sob "六 

TT 


搜索 结果 sub 


| 


Sub 语 世 
文章 
调用 sub 以 及 Functon 过 程 
文章 
写 Sub 过 程 
文章 
Sub 语句 示例 
文章 
Sub 过 程 
文章 
Exit Sub 不 能 用 于 函数 或 Property 过 程 中 
文章 
Sub, Function ,或 Property 未 定义 〈 异 误 35) 
文章 
期 竺 End sub 
文章 


End Sub、End Functior 或 End Property 后 面 只 能 出 现 注释 
文章 副 


| 
2-29 输入 sub 


@ 加 选择 需要 查看 内 容 的 超 链接 , 例如 “Sub 语句 ”， 即 可 打开 具体 的 帮助 内 容 。 如 果 想 查 
看 Sub 语句 的 相关 实例 ， 可 以 单 击 【 示 例 】 超 链接 ， 如 图 2-30 所 示 。 
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第 2 章 ”Excel 2010 VBA 的 开发 环境 


全 Excel 帮助 
自卫 名 四 和 克拉 多 是 
地 国 关 PP 


Sub 语句 
请 全 图 。 到 全 
声明 子 过 程 的 各 桨 ， 苯 芍 ， 以 及 构成 有 主体 的 代码 。 


Soh 向 名 的 语法 包含 下 面部 分 : 


部 分 区 过 

Poblie 可 连 肥 。 表 示 泊 有 可 时 队 所 有 芒 它 过 程 导 可 配 同 区 个 Sab 过 程 。 加 果 在 包 合 Dption Private 卫 禹 决 中 合用， 则 这 个 过 
全 在 访 工 程 外 是 不 可 全 用 89。 

Hrivate 可 过 和。 表示 只 有 在 色 人 其 声明 8 楼 块 中 约 下 它 近 往 可 以 配 同 读 Sah 过 程 

Hriend 相 迁 提 。 只 能 在 闫 看 寺中 他 用 。 表 示 廊 Sab 过程 在 苦 全 工程 中 邦 是 呆 见 的 ， 但 对 对 象 实 罗 8 控制 者 是 二 可见 的 。 

Statie 2 sw Rt 

am 攻 震 邱 。Sab 的 名 全 ; 违 形 标准 的 变量 命名 约定。 

ar 可 这 的 。 代 表 在 调用 时 要 传递 结 5eb 过 程 的 李 攻 的 赤 量 列表 。 却 个 志 且 则 用 到 号 岳 开 . 

statenents 可 这 的 。Swb 过 程 中 所 执 生 的 任何 语句 柜 


其 中 的 errlizt 考 数 的 法 以 及 语法 和 个 部 分 30 下 : 
[Optieaal] [Byyal | ByRef] [Parashrray] rarnanef( )] [hs type] [= dfacrtraroa 


TR | [| 
图 2-30 “Sub 语句 ”的 帮助 内 容 


@g@j 即 可 打开 示例 窗口 , 用 户 可 以 复制 例子 的 代码 到 代码 窗口 中 运行 ,可 以 通过 学 习 实例 就 
可 以 掌握 相关 代码 的 编写 方法 ， 如 图 2-31 所 示 。 


斌 示例 俩 用 sab 语 各 来 定义 子 过 程 的 名称 、 参 类 、 以 及 构成 子 过 程 主体 的 代码 


“于 过 可 的 定义 。 

“ 子 过 程 大 有 丙 个 枯 数 。 

Sub SubConputeArea (Length, TheWidth) 
Din Area As Double “声明 局 那 到 量 
了 Length = 0 Or TheWidth = 0 Then 


“加 果 有 一 个 参数 = 0， 
Exit Sub 。 “ 识 立 凤 退 出 子 过 程 . 
nd IE 


Area = Length 本 TheWidtb 
Jebug. Print Area 。 “将 面积 显示 
End Sub 


2-31 VBE 编辑 器 窗口 


2:5 

= 苍 

高 手 私 房 菜 

本 章 主要 介绍 了 Excel 2010 VBA 的 开发 环境 ， 下 面 继续 来 解答 一 些 常见 的 疑惑 。 


技巧 1: 快速 给 工程 加 密 
如 果 不 想 让 别人 看 到 工程 的 具体 细节 ， 可 以 锁定 工程 并 添加 密码 。 具 体操 作 步骤 如 下 。 


bb 
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bby: 


Wf 


ERE 入 门 与 实战 


@ 则 进入 VBE 操作 界面 ， 选择 【工具 】> 【VBAProject 属性 】 莱 单 命令 ， 如 图 2-32 所 示 。 


上 他 弹出 【VBAProject- 工 程 属性 】 对 话 框 , 选中 【查看 时 锁定 工程 】 复 选 框 ， 然 


码 】 和 【确认 密码 】 文 本 框 中 输入 工程 属性 密码 ， 单 击 【 确 定 】 按 钮 即 可 。 


后 在 【 密 


2-32 选择 【VBAProject 属性 】 菜 单 命令 图 2-33 【VBAProject- 工 程 属性 】 对 话 框 


技巧 2: 找 回 丢 失 的 工具 栏 


如 果 用 户 不 小 心 关 闭 或 者 隐藏 了 控件 【工具 箱 】 窗 口 ， 可 以 选择 【视图 】>【 工 具 箱 】 


菜单 命令 ， 或 单 击 【 标 准 】 工 具 栏 上 的 【工具 箱 】 按 钮 人 将 其 重新 调 出 。 


osoft Excel 工作 表 .... 基因 | 攻 


jn xy sD lm so 并 0) > ET 
x 


代码 宣 口 @ = 外 
加 图 -日 4 ja 对 银 间 DB) 上 
于 一 


工具 得 00 
Tab 而 嘲 序 (A) 


工 REOD 
国 Microsok Excel 。 Ah+Fl1 


2-34 选择 【工具 箱 】 菜 单 命令 
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第 3 章 ” 宏 概 述 


学 习 完了 VBA 应 用 程序 开发 的 平台 和 环境 后 ， 开 始 学 习 如 何 使 用 Excel 创建 和 使 用 宏 ， 
这 也 是 Excel 中 较为 强大 的 功能 。 本 章 主要 讲述 宏 的 基本 概念 、 创 建 宏 的 各 种 方法 、 如 何 管 
理 宏 、 运 行 宏 和 设置 宏 的 安全 性 ， 最 后 通过 1 个 综合 案例 ， 讲 述 宏 的 具体 录制 方法 。 


Sd 
宏 的 基本 概念 


在 学 习 Excel VBA 时 , 不 能 不 提 到 Excel 中 的 宏 , 这 里 将 对 宏 的 概念 和 用 途 等 进行 介绍 ， 
以 便于 用 户 能 够 更 好 地 理解 宏 的 含义 。 


二 什么 是 宏 


宏 是 通过 一 次 单 击 就 可 以 应 用 的 命令 集 。 它 们 几乎 可 以 自动 完成 用 户 在 程序 中 执行 的 任 
何 操作 , 甚至 还 可 以 执行 用 户 认 为 不 可 能 的 任务 。 在 Excel 的 【视图 】 选 项 卡 中 可 以 单 击 【 宏 】 
按钮 ， 弹 出 的 下 拉 菜单 中 包含 常见 的 宏 操 作 ， 如 图 3-1 所 示 。 


国 | 加 -RSrl* 新 建 Microsoft Excel 工作 要 xlsx - Microsoft Excel omu 
开始 搬入 页 本 布局 。 公式 数 向 市 网 | 讽 至 开发 工具 a@-9 
分 页 本 @ 本 | 
| Dr gw QQ 回国 an sr 2 书 四国 
rs Ten se 100% 过 到 | 目 全 本 “一人 仓 SD | 实 | 
上 运 二 区 域 ， 洒 记 8 自 梧 - 口 SN 二 33 工作 区 | 
工作 备 术 图 未 时 未 比例 宣 口 己 sasw 从 

J6 I 到 | 加 “ 录 W 去 B. 加 

A B c D 下 下 C H | 3 

| 使 用 柜 对 引用 (W) | 


图 3-1 【视图 】 选 项 卡 中 的 【 宏 】 按 钮 


由 于 工作 需要 ， 每 天 都 在 使 用 Excel 进行 表格 的 编制 、 数 据 的 统计 等 ， 每 一 种 操作 可 以 
称 为 一 个 过 程 。 而 在 这 个 过 程 中 ， 经 常 需要 进行 很 多 重复 性 操作 ， 如 何 能 让 这 些 操作 自动 重 
复 执行 呢 ? Excel 中 的 宏 恰好 能 解决 这 类 问题 。 

宏 不 仅 可 以 节省 时 间 ， 并 可 以 扩展 日 常 使 用 的 程序 的 功能 。 使 用 宏 可 以 自动 执行 重复 的 
文档 制作 任务 ,简化 繁 元 的 操作 ， 还 可 以 创建 解决 方案 。VBA 高 手 们 可 以 使 用 宏 创建 包括 模 
板 、 对 话 框 在 内 的 自 定义 外 接 程 序 ， 甚 至 可 以 存储 信息 以 便 重复 使 用 。 


》 .< 


Wf 


[ETRTEA 入 门 与 实战 


从 更 专业 的 宏 来 说 , 宏 是 保存 在 Visual Basic 模块 中 的 一 组 代码 。 正 是 这 些 代 码 驱动 着 
操作 的 自动 执行 。 当 单 击 按钮 时 ， 这 些 代码 组 成 的 宏 就 会 执行 代码 记录 的 操作 ， 如 图 3-2 
所 示 。 


国 | 回 了 - CS -1> 新 言 Microsoft Excel 工作 表 xism - Microsoft Excel 号 回 有 
| x+ 本 
， Eal 归 a 
El 
ic 安 加 鼎 项 COM 加 匡 项 。 牟 入 设计 模式 过 | XML “文档 面板 

全 by 全 | 


代码 加 莫 项 Ea 修改 


B Cc 
hello WEA hello VBA 


[3 确认 运行 按钮 种 
10 


MA VM] Sheet! Sheetl sheet 本 HL 有 下 
有 | 站 | [EMP EN 


3-2 单 击 按钮 执行 宏 操作 


单 击 【 开 发 工具 】 选 项 卡 中 【代码 】 选 项 组 中 的 Visual Basic 按钮 ， 即 可 打开 VBA 的 代 
码 窗 口 ， 用 户 可 以 看 到 宏 的 具体 代码 ， 如 图 3-3 所 示 。 


yh 
CR 


3-3 宏 的 代码 


【提示 】 在 上 述 宏 代码 中 “按钮 1_Click” 是 宏 的 名 称 。 语 名 Range(“C1”)= “hello VBA” 是 用 代码 
方式 表示 的 操作 过 程 ， 即 在 活动 单元 格 Cl 中 录入 英文 hello VBA。 


[EE 宏 的 作用 


在 实际 的 工作 中 ， 使 用 宏 可 以 实现 复杂 的 工作 简单 化 ， 重 复 的 工作 便捷 化 ， 从 而 大 幅度 
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提高 工作 效率 。 其 常见 应 用 如 下 。 


(1) 将 重复 的 工作 定义 成 模块 ， 利 用 按钮 功能 来 方便 操作 。 

工作 实际 上 是 由 若干 件 重复 的 工作 组 来 实现 的 。 可 以 将 大 量 的 、 重 复 的 工作 组 定义 成 一 
些 模块 , 并 且 用 设 定 的 按钮 来 进行 控制 和 操作 , 这 样 可 以 简化 一 些 大 量 重复 工作 的 操作 过 程 ， 
从 而 提高 工作 效率 。 

(2) 可 以 根据 业务 需要 ， 进 行 操作 界面 的 定制 ， 使 Excel 环境 成 为 一 个 业务 系统 。 

可 以 利用 VBA 就 我 们 的 业务 系统 和 一 些 特殊 功能 界面 进行 一 些 简单 的 定制 ， 从 而 使 
Excel 成 为 一 种 虚拟 的 业务 系统 。 比 如 说 ， 我 们 经 常 要 大 量 地 录入 数据 ， 是 利用 Excel 进行 客 
户 资料 的 管理 ， 在 录入 这 些 数据 的 时 候 ， 要 进行 不 断 的 、 重 复 的 、 切 换 性 的 操作 ， 这 样 会 浪 
费 大 量 的 鼠标 和 键盘 操作 ， 但 是 我 们 可 以 利用 Excel VBA 来 定制 开发 出 这 样 一 个 管理 环境 ， 
从 而 在 一 个 简单 的 界面 下 完成 所 有 的 客户 资料 管理 。 

(3) 创建 报表 系统 ， 定 制 开发 系统 报表 功能 ， 简 化 在 实际 报表 设计 中 的 操作 过 程 。 

销售 和 财务 部 门 需要 大 量 的 报表 系统 ， 在 日 常 Excel 操作 时 所 使 用 的 报表 系统 主要 有 图 
表 和 数据 透视 表 ， 其 他 的 都 是 通过 单元 格 的 合并 和 其 他 一 些 操作 来 实现 的 ， 现 在 呢 ， 可 以 利 
用 VBA 根据 工作 的 需要 设计 和 定制 一 套 全 面 的 报表 系统 ， 并 且 在 这 个 系统 当中 ， 可 以 根据 
需要 加 以 设计 ， 从 而 达到 一 个 比较 科学 的 、 方 便 的 生成 系统 。 

(4) 创建 工作 需要 的 特殊 计算 公式 。 

Excel 一 个 强大 的 功能 就 是 函数 公式 ， 但 是 有 一 些 功能 没有 设计 到 公式 中 去 。 例 如 ， 在 
Excel 中 有 一 个 连 加 公式 , 但 在 实际 工作 中 需要 连 减 公式 就 没有 了 。 又 例如 ， 在 Excel 中 进行 
财务 处 理 ， 有 很 多 的 财务 公式 ， 但 是 缺乏 的 是 从 小 写字 母 转换 成 大 写字 母 的 公式 ， 在 国内 企 
业 中 ， 财 务 部 甚至 许多 部 门 都 需要 使 用 到 这 个 公式 。 那 怎么 办 呢 ? 这 时 ， 就 可 以 通过 VBA 
进行 开发 和 定制 一 个 从 小 写 模式 转换 或 大 写 模式 的 公式 ， 从 而 提高 我 们 的 输入 速度 和 效率 。 


3 这 
创建 宏 

了 解 了 宏 的 基本 概念 后 ， 下 面 开 始 学 习 如 何 创建 宏 。 
3.2.1 添加 【开发 工具 】 选 项 卡 


创建 宏 的 过 程 中 ， 需 要 用 到 Excel 2010 的 【开发 工具 】 选 项 卡 。 默 认 情况 下 ,【 开 发 工 
有 具 】 选 项 卡 并 不 显示 。 下 面 讲述 如 何 添加 【开发 工具 】 选 项 卡 ， 具 体操 作 步 骤 如 下 。 


@ 册 启动 Excel2010， 选择 【文件 】 > 【选项 】 菜 单 命令 ， 即 可 打开 如 图 3-4 所 示 的 界面 。 
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图 3-4 【文件 】 菜单 


到 弹出 【Excel 选项 】 对 话 框 ， 在 左 侧 列表 中 选择 【 自 定义 功能 区 】 选 项 ， 在 右 侧 的 【 自 
定义 功能 区 】 窗 格 中 选中 【开发 工具 】 复 选 框 ， 单 击 【 确 定 】 按 钮 ， 如 图 3-5 所 示 。 
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图 3-5 【Excel 选项 】 对 话 框 
@ 剖 即 可 成 功 显 示 【 开 发 工具 】 选 项 卡 ， 如 图 3-14 所 示 。 


国 | 加 osrl> 新 寻 Microsoft Excel 工作 表 xism - Microsoft Excel = | 
开拍 入 页 而 布局 。 公式。 要 市 网 。 视图 | 开 必 TI 内 | a@-gz 


ET 

sic 宕 国 in 项 coM jn 项 插入 设 H 模 式 全 查看 ft 到 天 ns 文本 
全 - 生 执行 对 村 

代 jr ES XML 人 


3-6 【开发 工具 】 选 项 卡 


34 


第 3 章 ， 宏 概述 


大 可 创建 宏 的 方法 


在 Excel 中 创建 宏 的 方法 有 以 下 两 种 。 
1. 利用 宏 录 入 器 录制 宏 

下 面 以 录制 一 个 修改 单元 格 底 纹 的 实例 进行 讲解 ， 具 体操 作 步骤 如 下 。 

国 划 新 建 空白 工作 簿 ， 选 择 Al 单元 格 ， 选择 【开发 工具 】 选 项 卡 ， 在 【代码 】 选 项 组 中 单 
击 【 录 制 宏 】 按 钮 ， 如 图 3-7 所 示 。 


虽 闻 弹出 【录制 新 宏 】 对 话 框 , 在 【 宏 名 】 文 本 框 中 输入 “修改 底 纹 ”， 单 击 【 确 定 】 按 钮 ， 
如 图 3-8 所 示 。 


[FAI WR 工作 短 1 - Microsoft Excel 
5 二 开始 ”插入 “页面 布局 。 公式。 数据 。 市 网 。 视图 。 开发 工具 


的 国 蕊 Ea 负电 了 


vieval Base 安 ” 国 全 sa 用 ing cow ja 页 白 入 设计 模式 全 二 看 代码 
| 个 夫 安全 性 - 目 执行 对 话 杠 
| 代码 加 本 项 控件 
图 3-7 单 击 【 录 制 宏 】 按 钮 图 3-8 【录制 新 宏 】 对 话 框 


【提示 】 在 【保存 在 】〗 下 拉 列 表 框 中 共有 3 个 选项 :【〖【 当 前 工作 敌 】〗 选 项 ， 表 示 只 有 当 该 工作 簿 打 开 时 ， 
录制 的 宏 才 可 以 使 用 ;〖【 新 工作 簿 】〗 选 项 ， 表 示 录 制 的 宏 只 能 在 新 工作 簿 中 使 用 ;〖 个 人 宏 工作 簿 】 选 
项 ， 表 示 录 制 的 宏 可 以 在 多 个 工作 簿 中 使 用 。 


@ 旨 右 击 Al 单元 格 ， 在 弹出 的 快捷 菜单 中 选择 【设置 单元 格格 式 】 菜 单 命令 ， 如 图 3-9 
所 示 。 

网 弹出 【设置 单元 格格 式 】 对 话 框 。 选 择 【 填 充 】 选 项 卡 ， 然 后 设置 背景 颜色 为 红色 、 
案 颜色 为 绿色 ， 单 击 【 确 定 】 按 钮 ， 如 图 3-10 所 示 。 
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图 3-9 【设置 单元 格格 式 】 菜 单 命令 3-10 【设置 单元 格格 式 】 对 话 框 
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人 加 即 可 看 到 Al 单元 格 的 底 纹 颜 色 发 生 了 变化 ， 单 击 【代码 】 选 项 组 中 【停止 录制 】 按 钮 ， 
即 可 完成 宏 的 录制 ， 如 图 3-11 所 示 。 


[E31™ sd 工作 每 1 - Microsoft Excel 


图 3-11 停止 录制 宏 


【提示 】 如 果 用 户 忘记 停止 宏 的 录制 ， 系统 将 会 继续 录制 用 户 接 下 来 的 所 有 操作 ,直到 关闭 工作 簿 或 退 
出 Excel 应 用 程序 为 止 。 


2. 直接 在 VBE 环境 中 输入 宏 代 码 
用 户 可 以 直接 在 VBE 环境 中 输入 宏 代 码 ， 具 体操 作 步 又 如 下 。 


@ 明 选择 【开发 工具 】 选 项 卡 ， 在 【代码 】 选 项 组 中 单 击 Visual Basic 按钮 ， 如 图 3-12 所 示 。 
到 即 可 进入 VBE 环境 ， 用 户 即 可 快速 输入 相关 宏 代 码 ， 如 图 3-13 所 示 。 
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3-12 ”Visual Basic 按钮 图 3-13 VBE 环境 界面 


【提示 】〗 录 制 宏 只 能 执行 和 原来 完全 相同 的 操作 ， 而 编写 的 宏 可 以 识别 不 同 的 情况 以 执行 不 同 的 操作 。 
可 见 编写 的 宏 要 比 录 制 的 宏 更 能 灵活 地 处 理 复杂 的 操作 。 


| 查看 录制 的 宏 代 码 


Excel 中 的 宏 录 制 器 非常 有 用 , 它 不 仅 能 够 生成 可 用 的 VBA 代码 , 而且 可 以 发 现 相关 的 对 
象 、 方 法 和 属性 的 名 称 。 虽 然 由 宏 生 成 的 代码 不 是 最 有 效 的 ， 但 是 可 以 提供 很 多 有 用 的 信息 。 
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学 习 VBA 最 有 效 的 方式 是 先 录制 宏 ， 然 后 通过 查看 录制 宏 的 代码 和 功能 相 比较 ， 快 速 
学 习 代码 的 功能 。 

查看 录制 的 宏 代 码 的 具体 操作 步骤 如 下 。 

@ 册 打开 含有 录制 宏 的 工作 敌 ， 选 择 【 开 发 工具 】 选 项 卡 ， 在 【代码 】 选 项 组 中 单 击 【 宏 】 


按钮 ， 如 图 3-14 所 示 。 
@ 浊 弹出 【 宏 】 对 话 框 ， 选 择 需 要 查看 代码 的 宏 ， 单 击 【 编 辑 】 按 钮 ， 如 图 3-15 所 示 。 


国 | 加 9 -cr 工作 得 1xlsx [用 户 上 次 保 存 的 ] - Microsoft Excel 
开始 插入 页 而 布局 公式 数据 市 网 视图 | 开发 T 具 = 
位 置 WW) : | 所 有 打开 的 工作 外 


从 加 2 中国 秩 凤 se 国 a| 玛 


Visual Basik| 交 jn 页 COM in 页 天 入 tt 全 时 三 KB | 源 宰 
A = 由 执行 对 活 杠 - 
代码 R 加 又 项 控件 
图 3-14 单 击 【 宏 】 按 钮 图 3-15 【 宏 】 对 话 框 


@gj 进入 VBE 编辑 环境 ， 即 可 查看 宏 的 相关 代码 ， 如 图 3-16 所 示 。 
8 弛 如 果 想 删除 宏 ， 用 户 可 以 在 图 3-15 所 示 对 话 框 中 单 击 【 删 除 】 按 钮 ， 弹 出 警告 对 话 框 ， 
单 击 【 是 】 按 钮 ， 即 可 删除 不 需要 的 宏 ， 如 图 3-17 所 示 。 
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图 3-16 查看 宏 的 代码 图 3-17 警告 对 话 框 
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宏 创 建成 功 后 , 即 可 验证 宏 的 正确 性 。 在 Excel 2010 中 , 用 户 可 以 采用 多 种 方法 运行 宏 ， 
本 节 将 讲述 这 些 方法 的 具体 操作 步 又 。 


晤 樟 使 用 【 宏 】 对 话 框 运行 宏 


通过 【 宏 】 对 话 框 运行 宏 的 具体 操作 步 又 如 下 。 


@ 遇 在 【开发 工具 】 选 项 卡 的 【代码 】 选 项 组 中 单 击 【 宏 】 按 钮 ， 即 可 打开 【 宏 】 对 话 框 ， 
选择 需要 运行 的 宏 ， 单 击 【 执 行 】 按 钮 ， 如 图 3-18 所 示 。 
@ 到 即 可 看 到 执行 宏 后 的 效果 。 可 以 看 出 此 宏 的 目的 是 插入 一 个 剪贴 画 ， 如 图 3-19 所 示 。 


2- Tr WP tm) - M -mn 
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位 置 4): | 所 有 打开 的 工作 牧 
说 明 


图 3-18 【 宏 】 对 话 框 图 3-19 插入 剪贴 画 效果 


ER 使 用 快捷 键 运行 宏 


在 Excel 2010 中 ， 用 户 可 以 为 每 一 个 宏 指 定 一 个 快捷 键 ， 从 而 提高 运行 宏 的 效率 ， 具 体 
操作 步骤 如 下 。 


@ 则 打开 包含 宏 的 工作 敌 ， 在 【开发 工具 】 选 项 卡 的 【代码 】 选 项 组 中 单 击 【 宏 】 按 钮 ， 即 
可 打开 【 宏 】 对 话 框 ， 选择 需要 添加 快捷 键 的 宏 ， 单 击 【 选 项 】 按 钮 。 

@ 到 弹出 【 宏 选 项 】 对 话 框 ， 在 【快捷 键 】 文 本 框 中 输入 设置 快捷 键 的 字母 ， 单 击 【 确 定 】 
按钮 ， 如 图 3-20 所 示 。 
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图 3-20 【 宏 选项 】 对 话 杠 


本 可 使 用 快速 访问 工具 栏 运 行 宏 


对 于 经 常 使 用 的 宏 ， 用 户 可 以 将 其 放 在 快速 访问 工具 栏 中 ， 这 样 可 以 提高 工作 效率 。 具 
体操 作 步 又 如 下 。 

@ 贡 打开 包含 宏 的 工作 簿 ,选择 【 文 件 】>【 选 项】 菜单 命令 ,如 图 3-20 所 示 。 

上 到 弹出 【Excel 选项 】 对 话 框 。 在 【从 下 列 位 置 选择 命令 】 下 拉 列 表 中 选择 【 宏 】 选 项 ， 
如 图 3-22 所 示 。 
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a ax 
Ba — Bs es | 
[31| 9 WT | 
凡 » 
图 3-21 选择 【选项 】 菜 单 命令 图 3-22 选择 【 宏 】 选 项 


@gj 选择 需要 添加 的 宏 名 称 ,例如 本 实例 选择 【 宏 2】， 单 击 【 添 加 】 按 钮 ， 然 后 单 击 【 确 
定 】 按 钮 ， 如 图 3-23 所 示 。 i 
@ 弛 此 时 在 快速 访问 工具 栏 上 即 可 看 到 新 添加 的 【 宏 2】 按 钮 ， 单 击 此 按钮 即 可 运行 宏 ， 如 
3-24 所 示 。 
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Re de | oy 
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2 ws sm ma FR | ME | A OomE 
地 国 要 岂 3 日 区 
rk coM tosen 和 A tt Xu a 
He 和 
-ER 可 
2 E 日 | 
5 
Ee 3 
站 
.10 | 
六 | 业 | | | 汪 | 是 
12 1 
.13 | 
14 
15 
-16 本 
17 
18 
be 
20 
2 | 
[| queen Seeta Ro 2 Lv 
可 法 200% (=) i 心 本 | 
图 3-23 添加 宏 2 图 3-24 ”将 宏 添 加 到 工具 栏 


3.34 保存 带 宏 的 工作 簿 


默认 情况 下 ， 带 宏 的 工作 答 不 能 保存 ， 此 时 需要 用 户 自 定义 加 载 宏 的 方法 来 解决 。 具 体 
的 操作 步骤 如 下 。 


@ 遇 打开 含有 宏 的 工作 簿 ,选择 【文件 】> 【另存 为 】 菜 单 命令 ， 如 图 3-25 所 示 。 

@ 到 即 可 打开 【另存 为 ] 对 话 框 , 从 中 选择 保存 路 径 后 , 在 【保存 类 型 】 下 拉 列 表 中 选择 【Excel 
加 载 宏 (*.xlam) 】 选 项 ， 单 击 【 保 存 】 按 钮 即 可 , 即 可 加 载 自 定义 加 载 宏文 件 的 过 程 ， 如 图 3-26 
所 示 。 


(PEE Im lee MHP FG + Mero— 口 男 和 
| = Ec ELA 
CE 站 
1 ”有 关 工作 简 1 的 信息 
Es CNDecuments and Setings dretiator Mt En 
EL 
EE mm 
权限 
Eg {NN 5 
地 所 用 六 性 ed | se 
wa 2 
人 二 | Fe 0 
保 相 并 发送 wun FA 
NSED 
Wy 人 
a en 神 寻 人 十 无 汉 需要 外 内容 一 
as Mees 
原本 me 
9 rn > 
3-25 【另存 为 】 菜 单 命令 3-26 【另存 为 】 对 话 框 
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包含 宏 的 工作 簿 更 容易 感染 病毒 ， 所 以 用 户 需 要 提高 宏 的 安全 性 。 具 体操 作 步 又 如 下 。 


人 @ 胡 打开 包含 宏 的 工作 短 ， 选 择 【 文 件 】>【 选 项】 菜单 命 令 , 打开 【Excel 选项 】 对 话 框 ， 
选择 【信任 中 心 】 选 项 ， 然 后 单 击 【 信 任 中 心 设置 】 按 钮 ， 如 图 3-27 所 示 。 

@ 到 弹出 【信任 中 心 】 对 话 框 ,在 左 侧 列表 中 选择 【 宏 设置 】 选 项 ， 然 后 在 【 宏 设 置 】 列 表 
中 选中 【禁用 无 数字 签署 的 所 有 宏 】， 单 击 【 确 定 】 按 钮 ， 如 图 3-28 所 示 。 


nt tan. i 


保护 险 私 〇 村 用 所 有 去 , 并 且 不 通知 中 
Microsoft 至 力 子 滩 护 各 的 隐私 。 有 关 Microsot Excel 如 何 大 武侠 护 际 人 革 用 有关 , 并 发 出 和 DD) 
到 的 涯 吕 汪 四， 请 参 网 隐私 声 胡 ， 55 © 有 
- 口交 下 所 有 有 安 ( 丰 天 区 ; 可 联 会 到 行 有 痊 丰 大队 操作 5 
开发 人 只 安 设置 


口 委 E9 VEA 工 得 并 类 模 吕 鸡 沪 同 ) 


和 公 盏 这 此 二 
x 


加 
CE 


Las |][ ms 


图 3-27 【Excel 选项 】 对 话 框 图 3-28 宏 的 代码 
IOQ3j 单 击 【 开 始 】 按 钮 ， 选 择 【 所 有 程序 】》> 【Microsoft Office】》> 【Microsoft Office 2010 
工具 】> 【VBA 工程 的 数字 证 书 】 菜 单 命令 ， 如 图 3-29 所 示 。 
@ 网 弹出 【创建 数字 证 书 〗» 对 话 框 ， 输 入 证 书 的 名 称 ， 单 击 【 确 定 】〗 按 钮 ， 如 图 3-30 所 示 。 


和 书 带 有 您 键入 的 名 称 。 这 种 类 型 的 证 


轨 痪 皇 交 委 天 革 区 针 冰 可 克 难 村 的 过 的 ， 所 以 当 用 户 打开 人 包 言 自 签 


otee 将 只 信任 在 创建 该 证 书 的 计算 机 上 的 自 签名 证 书 。 i 


ED 
单 击 此 处 查看 商业 证 书 权 三 列表 ， 


生 的 证 书 名 称 MM: 
ing 


图 3-29 【VBA 工程 的 数字 证 书 】 菜 单 命令 图 3-30 【创建 数字 证 书 】 对 话 框 


@ 加 弹出 提示 成 功 对 话 框 ， 单 击 【 确 定 】 按 钮 ， 如 图 3-31 所 示 。 
t@Q@j 返回 到 Excel 2010 主 界面 ， 单 击 【 代 码 】 选 项 组 中 的 Visual Basic 按钮 ， 如 图 3-32 所 示 。 
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Wh 


加 ~ 插入 页 包公 式 。 歼 掺 。 市 交 视图 | 开 皮 工具 


EBERT 


| api So sn Ai 时 Ef 当家 
全 司 执行 对 活 栓 
加 茵 项 莹 件 
3-31 信息 提示 框 图 3-32 单 击 【Visual Basic】 按 钮 


天 进入 VBE 环境 ,选择 【工具 】> 【数字 签名 】 菜 单 命令 ， 如 图 3-33 所 示 。 
L 团 / 弹 出 【数字 签名 】 对 话 框 ， 单 击 【 选 择 】 按 钮 ， 如 图 3-34 所 示 。 


一 [ 顺 块 1 (代码 )] 


VBApraject 性 E 
Ee 


图 3-33 【数字 签名 】 菜 单 命令 图 3-34 【数字 签名 】 对 话 框 


@g 弹出 【选择 证 书 】 对 话 框 ， 选择 上 面 创建 的 的 证 书 ， 单 击 【确定 】 按 钮 ， 如 图 3-35 
所 示 。 

鹿 加 | 返回 到 【数字 签名 】 对 话 框 ， 单 击 【 确 定 】 按 钮 成 功 添加 数字 签名 ， 如 图 3-36 所 示 。 
保存 该 Excel 文件 ， 完 成 数字 签名 操作 , 


YBA 工程 当前 签署 为 
证 书 名 称 : yingda 


Ean 截止 日 其 
2014-2-21 详细 内 容 @).. . 
= 签署 为 

证 书 名 称 : yingda 


[ET 
取消 


图 3-35 【选择 证 书 】 对 话 框 图 3-36 选择 数字 签名 后 效果 


mi 


PAK 
下头 


在 实际 工作 中 ， 只 需 把 在 Excel 工作 表 内 的 操作 过 程 录制 下 来 ， 便 可 以 解决 一 些 重 复 性 
的 工作 ， 大 大 提高 工作 效率 。 
本 实例 主要 录制 自动 排序 的 宏 ， 具 体操 作 步 又 如 下 。 
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@ 贡 新 建 销 售 报表 并 输入 以 下 内 容 ， 然 后 选择 【开发 工具 】 选 项 卡 ， 在 【代码 】 选 项 组 中 单 
【录制 宏 】 按 钮 ， 如 图 3-37 所 示 。 


[ah 


国 | 加 9 了- II ~ Microsoft Excel 器 国 二 
| - EE = 加 一 回避 
mn | ro 半分 本 
从 世 3 学 园 实 这 了 转 Brae 二 
Viaml pasc 守 加 waa co xz mM erqz a Ee 
a 9 
- ca ae ov We | 
| Fe | =B6rC6rD6tEE S| 
下 D 下 F 5 下 3 


日 G 
英 达 科技 销 千 报表 
部 门 。 1 月 份 2 月 份 。 3 月份 。 《月 丛 。 总 和 
销售 角 15000 。 10000 15000 35000 75000 
悄 镶 部 24900 Zo000 16009 12000  T2p00 
3 3 30000 27000 24000 
6 | 钠 入 4 部 42000 45000 48000 Pre mer | 


销售 部 5900 51000 Sl000 51000 一 204000 


§ 


图 3-37 单 击 【 录 制 宏 】 按 钮 


到 弹出 【录制 新 宏 】 对 话 框 , 在 【 宏 名 】 文 本 框 中 输入 “数据 排列 ”， 单 击 【 确 定 】 按 钮 ， 
如 图 3-38 所 示 。 


图 3-38 宏 的 代码 
@g 选择 A2: F7 单元 格 区 域 ， 然 后 选择 【数据 】 选 项 卡 ， 在 【排序 和 筛选 】 选 项 组 中 单 击 


【排序 】 按 钮 ， 如 图 3-39 所 示 。 
加 Bao-e 工作 往 1 - Microsoft Excel i 
>+ 攻守 a@-F7 
局 各国 - + 和 Ba， 生 
a De a 村 ME- 3 
更 = 
全 加 -| 轿 236ca 
歼 托 了 具 分 级 显示 
C H | 
1 
3 35000 
和 12000 
24000 
51000 
于 
村 略 
9 
10 
1 
12 
13 
14 
15 
16 司 
AP sheetl ,Sheet Sbeet HD 7 BT 5 
.=| 拉 均 全 52080 计 下 有 孙 下 la0z000 | 夺回 加 100% Ce | 


图 3-39 单 击 【排序 】 按 钮 
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Wy 


[ET 入 门 与 实战 


@ 绩 弹出 【排序 】 对 话 框 ， 选 择 【 主 要 关键 字 】 为 【总 和 】 选 项 ， 然 后 单 击 【 添 加 条 件 】 按 
钮 ,选择 【次 要 关键 字 】 为 【1 月 份 】， 单 击 【 确 定 】 按 钮 ， 如 图 3-40 所 示 。 


吉庆 加 条 件 丰 ) ] | X 删除 条 件 中) |[ 33 复制 条 件 C) 


| 列 排序 体 据 
| 主要 关键 字 | 总 和 问 | | 数值 
次 要 关键 字 [iv | 数值 


图 3-40 【排序 】 对 话 框 


@ 加 单 击 【 代 码 】 选 项 组 中 的 【停止 录制 】 按 钮 ， 即 可 完成 数据 排序 宏 的 录制 ， 如 图 3-41 
所 示 。 


ml hi RS] ‘ v@ 
> ET wal 


图 3-41 停止 录制 宏 


技巧 1: 宏 自 动 启动 有 秘诀 

默认 情况 下 ， 宏 需要 用 户 手动 启动 。 录 制 宏 时 ， 在 【录制 新 宏 】 对 话 框 中 可 以 将 宏 命 名 
为 “Auto_Open”， 即 可 在 工作 秒 运 行 时 自动 启动 宏 ， 如 图 3-42 所 示 。 另 外 对 于 创建 好 的 宏 ， 
可 以 在 VBE 环境 中 直接 修改 宏 名 称 为 “Auto_Open” 即 可 ， 如 图 3-43 所 示 。 
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= - 工作 竹 ! - 【模块 ! 《代码 )] [lela 
EE 
宏 名 加 ): :wy 本 
[Ante_ope EC 4- 癌 扒 了 必 了 儿 桂子 溯 二 加 ” 
| 友 用 ) Ante_Open 


保存 在 台 ): 
| 当前 工作 簿 
说 明史 ): 


图 3-42 【录制 新 宏 】 对 话 框 图 3-43 ”修改 宏 名 称 


技巧 2: 宏 出 现 错误 时 的 处 理 妙 方 


若 正在 运行 中 的 宏 出 现 错误 ， 则 指定 的 方法 不 能 用 于 指定 的 对 象 ， 其 中 原因 很 多 ， 包 括 
参数 包含 无 效 值 、 方 法 不 能 在 实际 环境 中 应 用 、 外 部 链接 文件 发 生 错误 和 安全 设置 等 。 

其 中 前 3 种 问题 , 用 户 可 以 根据 提示 检查 代码 和 文件 即 可 , 对 于 安全 设置 问题 比较 常见 ， 
用 户 可 以 单 击 【 开 发 工具 】 选 项 卡 【 宏 】 选 项 组 中 的 【 宏 安 全 性 】 按 钮 ， 在 弹出 的 【信任 中 
心 】 对 话 框 中 选中 【信任 对 VBA 工程 对 象 模型 的 访问 (V)】 复 选 框 ， 然 后 单 击 【 确 定 】 按 
钮 即 可 ， 如 图 3-44 所 示 。 


受信 任 的 发 布 汗 
委 信 任 位 置 

要 信任 的 文档 

加 载 项 


安 设 置 
〇 要 用 所 有 ， 并 且 不 通 和 0(U) 
O 要 用 所 有 去 ,并发 0(D) 
〇 于 用 无 收 字 答 罩 的 所 有 大 (G) 
加 局 用 所 有 友 ( 不 准 革 ;可 能 会 运 生 有 并 二名 给 的 代码 ) 四 


ActiveX 座 加 


医 二 
要 保护 的 梳 图 
注 栏 回 | 入 S33 VEA 工程 洁 萌 楼 型 的 访问 V)| 
外 部 内 容 
文人 阳具 轩 
个 人 信息 迁 项 


开发 人 员 宏 设置 


图 3-44 【信任 中 心 】 对 话 框 
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第 4 章 VBA 基础 


在 使 用 VBA 进行 编程 前 ， 用 户 首先 要 学 习 VBA 的 基础 知识 ， 包 括 VBA 的 概述 、 常 见 
的 数据 类 型 、 常 量 、 变 量 、 运 算 符 和 表达 式 等 相关 知识 。 通 过 本 章节 的 学 习 ， 用 户 将 熟练 党 
握 VBA 编程 的 基本 语法 知识 。 


4.1 
VBA 简介 


VBA 是 Visual Basic for Applications 的 缩写 ， 是 Visual Basic 的 一 种 宏 语 言 ， 主 要 是 用 来 
扩展 Windows 的 应 用 程式 功能 。 例 如 本 书 讲述 的 Microsoft Excel 2010 软件 ， 通 过 编写 程序 
能 使 Excel 自动 完成 工作 ， 从 而 实现 应 用 程序 自动 化 。 

VBA 是 基于 Visual Basic 发 展 而 来 的 ， 它 们 具有 相似 的 语言 结构 。Visual Basic 是 
Microsoft 的 主要 图 形 界面 开发 工具 。 


4.2 
VBA 的 数据 类 型 


数据 类 型 是 按照 被 定义 变量 的 性 质 、 表 示 形 式 和 构造 特点 来 划分 的 不 同 的 操作 对 象 。 例 
如 要 表示 一 个 员工 的 信息 ， 需 要 保存 员工 的 姓名 、 年 龄 和 性 别 等 ， 这 些 数据 在 VBA 中 分 别 
需要 使 用 不 同 的 数据 类 型 来 表示 。 因 此 ， 在 学 习 如 何 使 用 VBA 进行 程序 设计 之 前 ， 有 必要 
先 了 解数 据 类 型 的 相关 知识 。VBA 中 包含 的 主要 数据 类 型 有 : 布尔 型 、 日 期 型 、 字 符 串 型 、 
货币 型 、 小 数 型 、 字 节 型 和 整 型 。 


表 4-1 VBA 的 数据 类 型 


数据 类 型 | 关键 字 占用 空间 取 值 范围 

布尔 型 Boolean 2 字 节 True 或 False 

日 期 型 | Date 8 字 节 1/1/100~12/31/9999 
字符 串 型 | string 字符 申 长 

货币 型 | Currency 8 字 节 


数据 类 型 | 关键 字 | 占用 空间 | 取 值 范围 


负数 : - 3.402823E38~ - 1.401298E-45 


单 精 度 型 | Single 4 字 节 
正 数 : 1.401298E - 45~3.402823E38 


负数 : - 1.79769313486231E308~ - 4.94065645841247E - 324 


双 精 度 型 | Double | 8 字 节 
正 数 : 4.94065645841247E - 324~1.79769313486231E308 


小 数 型 Decimal | 14 字 节 


字 节 型 Byte 1 字 节 0-255 


整 型 Integer | 2 字 节 -32768~32767 


长 整 型 Iong 4 字 节 -2147483648 一 2147483647 


下 面 将 详细 介绍 各 种 数据 类 型 的 特点 。 


Ee 布尔 型 


布尔 型 (Boolean ) 用 来 表示 逻辑 的 真 值 (True) 和 假 值 〈False)。 布 尔 型 变量 的 显示 值 
为 True 或 False， 存 储 时 占用 2 字 节 。 定 义 完 布尔 类 型 的 变量 之 后 ， 可 以 使 用 True 或 False 
为 这 些 变量 赋值 。 

布尔 类 型 值 可 以 与 其 他 类 型 值 进行 转换 ， 当 其 他 类 型 的 数值 转换 为 布尔 值 时 ，0 值 转换 
为 False， 其 他 值 变 成 True; 当 将 布尔 值 转换 为 其 他 的 数据 类 型 时 ，False 转换 为 0， 而 True 
转换 为 -1。 


| 日 期 型 


日 期 型 (Date) 数据 用 来 存储 日 期 和 时 间 。 使 用 日 期 型 数据 时 需要 采用 “#” 符 号 把 日 期 
和 时 间 值 括 起 来 ， 例 如 #2011-01-01#，#06/01/2010 10:05 AM#。 


本 字符 串 型 


字符 串 型 (String) 用 来 存储 字符 序列 。 字 符 串 数据 在 使 用 时 需要 包括 在 双 引 号 内 ,字符 
串 中 也 可 以 不 包括 任何 字符 ， 这 样 的 字符 串 叫做 空 字符 串 。 下 面 是 一 些 字符 串 的 表示 形式 : 
" 欢迎 大 家 学 习 VBR" 


"Today is Monday!" 
"1008611" 


Ce 


上 面 4 个 数据 都 是 字符 串 类 型 的 ， 最 后 一 个 形式 表示 一 个 空 字符 串 。 

VBA 中 的 字符 串 可 以 分 为 两 种 : 定 长 字符 串 与 变 长 字符 串 。 定 长 字符 串 是 长 度 固定 的 字 
符 串 ， 在 定义 时 指定 字符 串 中 可 以 保存 的 字符 的 长 度 是 固定 的 ; 变 长 字符 串 是 长 度 可 变 的 字 
符 串 ， 其 实际 字符 串 的 长 度 由 其 中 包含 的 实际 字符 个 数 决定 。 
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货币 型 


货币 型 (Currency) 数据 专门 用 来 处 理 货币 。 货 币 类 型 数据 在 存储 时 占用 8 字 节 ， 货 币 
数据 类 型 在 声明 时 使 用 “@” 符 号 ， 货 币 数据 类 型 主要 适用 于 对 精度 要 求 比较 高 的 场合 ， 其 
可 以 表示 的 存储 范围 为 -922 337 203 685 477.580 8~922 337 203 685 477.580 7。 


单 精度 和 双 精 度 型 


单 精度 〈Single) 和 双 精 度 (Double) 都 是 可 以 用 来 表示 带 有 小 数 的 数据 。 单 精度 和 双 精 
度 以 指数 的 形式 来 表示 数 。 

Single 表示 分 数 、 带 小 数位 或 指数 的 数值 等 单 精度 数 ， 占 用 4 字 节 的 存储 空间 ， 取 值 范 
围 为 负 值 时 -3.402 823E38~-1.401 298E-45， 正 值 时 1.401 298E-45~3.402 823E38 。 

Double 存储 双 精 度 浮 点 数 , 占用 8 字 节 的 存储 空间 , 取 值 范围 为 负 值 时 -1.797 693 134 862 
32E308~-4.940 656 458 412 47E-324， 正 值 时 1.797 693 134 862 32E308~4.940 656 458 412 
47E-324， 默 认 值 为 0。 


厂 小 数 型 


小 数 型 《Decimal) 是 一 种 包含 以 10 的 窘 为 刻度 的 十 进 制 数 的 变 体 子 类 型 ， 不 是 一 种 独 
立 的 数据 类 型 占用 14 字 节 的 存储 空间 , 取 值 范围 为 土 79 228 162 514 264 337 593 543 950 335 
(不 带 小 数 点 ) 或 土 7.922 816 251 426 433 759 354 395 033 5( 带 28 位 小 数 点 )， 默 认 值 为 0。 


字 节 型 


字 节 型 (Byte) 用 来 存储 二 进 制 数 ， 以 正 整数 值 的 形式 保存 ， 存 储 范围 为 0~255， 占 用 1 
字 节 的 存储 空间 。 


Es 


整 型 用 来 存储 不 带 小 数 部 分 的 数 ， 如 正 整 数 、 负 整数 和 零 。 整 型 分 为 普通 整 型 (Integer) 
和 长 整 型 (Long)。 

Integer 表示 -32768~32767 之 间 的 整数 ， 其 中 一 位 表示 符号 ， 占 用 2 字 节 的 存储 空间 ， 默 
认 值 为 0。 

Long 表示 -2 147 483 648~2 147 483 647 之 间 的 整数 ， 其 中 一 位 表示 符号 ， 占 用 4 字 节 的 
存储 空间 ， 默 认 值 为 0。 
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常量 是 在 程序 执行 之 前 已 经 确定 的 值 ， 在 程序 执行 时 ， 其 中 保存 的 值 或 字符 串 不 会 发 生 


三 到 常量 的 分 类 


VBA 有 三 种 形式 的 常量 : 直接 常量 、 符 号 常量 和 系统 常量 。 用 户 可 以 指定 直接 常量 和 符 
号 常量 的 值 ， 而 系统 常量 则 是 VBA 提供 的 一 些 系 统 内 部 已 经 定义 好 的 常量 ， 可 以 直接 使 用 。 
1. 直接 常量 

直接 常量 也 叫 一 般 常 量 , 其 中 保存 用 户 直接 书写 的 值 , 例如 4.2.3 节 中 介绍 的 几 个 字符 串 
数据 都 是 直接 常量 ， 也 可 以 指定 数值 常量 或 日 期 常量 等 ， 如 18，#2012-2-20#。 
2. 符号 常量 

符号 常量 是 在 程序 中 使 用 的 用 符号 表示 的 常量 ， 使 用 符号 常量 可 以 减少 程序 出 错 的 可 能 
性 、 加 快 程序 的 修改 和 提高 程序 的 可 读 性 。 定 义 符号 常量 的 语法 格式 如 下 。 

Const 常量 名 称 [AS 数据 类 型 ] = 常量 值 表达 式 

这 里 Const 是 定义 符号 常量 的 关键 字 ， 等 号 后 面 常 量 值 表达 式 计算 后 的 结果 将 保存 在 常 
量 名 称 中 ， 保 存 之 后 ， 用 户 就 不 能 修改 常量 名 称 中 保存 的 值 了 。 例 如 : 

Const VAR1=365 

Const MSG= "Happy birthday! " 

上 面 分 别 声明 了 一 个 整 型 常量 VAR1 和 字符 串 常量 MSG。 使 用 Const 也 可 以 一 次 定义 多 
个 常量 ， 例 如 : 

Const NAME=" 李 阳 "， PI AS Double=3.1415; 
3. 系统 常量 

系统 常量 根据 所 在 系统 库 可 以 分 为 VBA 系统 常量 和 Excel 系统 常量 。 

系统 常数 采用 大 小 写 混合 的 格式 ， 其 前 级 表示 定义 常数 的 对 象 库 名 称 。VBA 系统 内 部 符 
号 常量 以 小 写字 母 “vb” 开 头 ， 例 如 色彩 常量 “vbBlack” 表 示 黑 色 、“vbSunday” 表 示 周 日 ; 
Excel 内 部 系统 常量 通常 以 小 写字 母 “xl” 开 头 。 用 户 可 以 在 “对 象 浏览 器 ”中 查看 这 些 系统 
变量 的 具体 值 ， 如 图 4-1 所 示 。 
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图 4-1 对 象 浏 览 器 
常量 在 命名 时 一 般 都 使 用 大 写字 母 ， 以 与 一 般 的 变量 区 别 开 来 。 


时 
四 变量 


变量 是 在 程序 运行 过 程 中 可 以 改变 值 的 量 ， 变 量 提供 了 一 个 存储 数据 的 容器 ， 变 量 在 使 
用 之 前 应 当先 要 声明 ， 之 后 系统 将 会 给 变量 分 配 一 个 存储 单元 ， 变 量 声明 时 要 指定 变量 名 称 
和 数据 类 型 ， 不 同类 型 的 变量 中 保存 的 数据 也 是 不 同 的 ， 程 序 中 通过 变量 的 名 称 引用 其 中 的 
值 。 变 量 的 名 称 在 其 作用 域内 必须 是 唯一 的 。 根 据 变 量 的 作用 域 不 同 ， 可 分 为 局 部 变量 、 全 
局 变量 。 

变量 命名 中 可 以 指定 任何 英文 或 者 中 文字 符 ， 但 声明 变量 时 要 注意 以 下 几 点 : 


(1) 变量 必须 以 字母 开头 ， 中 间 可 以 出 现 数字 和 一 些 标点 符号 ， 除 下 划 线 (_) 作为 连 字 
符 外 ， 变 量 名称 不 能 有 空格 、 加 号 (+)、 减 号 (-)、 逗 号 (,)、 小 数 点 (.) 等 符号 。 

(2) VBA 不 区 分 大 小 写 。 但 在 变量 命名 时 ， 最 好 体现 该 变量 的 作用 。 

(3) 不 能 使 用 VBA 中 的 关键 字 作为 变量 。 

(4) 变量 名 称 中 不 能 有 特殊 类 型 的 声明 字符 (#、$、%、& 或 !)。 

(5) 变量 名 称 最 多 可 以 包含 254 个 字符 。 


| 定义 变量 


变量 使 用 之 前 需要 声明 ， 声 明 变量 使 用 Dim 语句 ， 虽 然 在 VBA 中 可 以 通过 不 声明 而 直 
接 在 程序 中 使 用 变量 ， 这 样 系统 会 自动 创建 一 个 变量 ， 但 通常 情况 下 ， 代 码 编写 人 员 应 该 养 
成 良好 的 编程 习惯 ,在 使 用 之 前 强制 声明 变量 ， 这 样 VBA 也 可 以 知道 变量 的 名 称 和 数据 类 
型 。Dim 语句 的 基本 语法 格式 如 下 : 
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Dim 变量 名 称 [AS 数据 类 型 ] 


Dim 为 声明 变量 的 关键 字 。 

AS 关键 字 后 面 指定 变量 的 数据 类 型 ， 即 其 中 要 保存 什么 数据 类 型 的 数据 ， 例 如 String、 
Integer、Date 等 。 

这 里 “AS 数据 类 型 ”使 用 中 括号 括 起 来 ， 表 示 在 使 用 Dim 声明 变量 时 可 以 不 指定 AS 
关键 字 后 面 的 数据 类 型 ， 系 统 会 根据 指定 的 值 自动 为 改变 量 指定 数据 类 型 。 

变量 的 声明 可 以 放 在 程序 的 开始 处 或 者 是 代码 中 间 ， 一 般 情况 将 其 放 在 程序 的 开始 处 。 
例如 ， 下 面 是 一 些 声明 变量 的 语句 : 

Dim strStudentName =" 楚 飞 " 

Dim discount AS Single 

Dim birthday AS Date 

上 面 分 别 声明 了 3 个 变量 ， 第 一 个 是 String 类 型 的 变量 ， 第 二 个 是 单 精度 的 小 数 ， 第 三 
个 是 日 期 类 型 的 变量 。 

另外 , 多 个 变量 也 可 以 在 同一 个 Dim 语句 中 声明 , 此 时 需要 制定 每 一 个 变量 的 数据 类 型 。 
例如 : 


Dim intA AS Integer, intB AS Integer, intC RS Integer 


该 语句 声明 了 3 个 Integer 类 型 的 变量 ， 名 称 分 别 为 intA、intB 和 intC。 

接 下 来 ， 看 下 面 的 一 条 Dim 语句 : 

Dim intA intB，intC AS Integer 

intA、intB 和 intC 的 数据 类 型 还 是 Integer 吗 ? 不 是 ， 因 为 VBA 中 变量 在 没有 指定 数据 
类 型 时 ， 默 认 都 为 Variant 类 型 ， 所 以 这 里 intA 和 intB 的 数据 类 型 是 Variant， 而 只 有 intC 的 
数据 类 型 是 整 型 。 读 者 在 声明 变量 时 一 定 要 注意 为 每 个 变量 指定 数据 类 型 。 


4.3.4 变量 的 定义 域 

变量 在 不 同 的 地 方 定义 时 ， 有 不 同 的 使 用 范围 ， 根 据 变量 的 使 用 范围 ， 可 以 将 变量 分 为 
过 程 级 变量 、 模 块 级 变量 和 全 局 变量 。 
1. 过 程 级 变量 

在 过 程 中 声明 的 变量 只 能 在 过 程 中 使 用 ， 即 变量 定义 域 是 过 程 级 的 ， 这 种 变量 也 称 为 局 
部 变量 。 在 声明 局 部 变量 的 过 程 结 束 的 同时 ， 变 量 也 失去 作用 ， 并 且 系 统 释 放 变 量 占用 的 内 
存 空间 。 所 以 可 以 在 不 同 的 过 程 中 声明 具有 相同 名 称 的 变量 。 
2. 模块 级 变量 

变量 如 果 在 模块 中 声明 ， 则 在 该 模块 的 每 个 过 程 中 都 可 以 使 用 ， 即 变量 的 定义 域 是 模块 
级 的 。 这 样 可 以 实现 多 个 过 程 之 间 对 某 个 变量 的 共享 。 定 义 模块 级 的 变量 时 ，Dim 语句 必须 
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放 在 模块 的 声明 部 分 ， 一般 情况 是 在 Option Explicit 语句 和 第 一 个 模块 之 间 。 例 如 : 


Option Explicit 
Dim stuScore AS Integer 
Sub funcl() 
StuScore =50 
MsgBox stuScore 
End Sub 
Sub func2() 
StuScore =stuScore + 20 
MsgBox stuScore 
End Sub 
上 面 的 两 个 代码 定义 了 两 个 模块 ， 即 函数 funcl 和 函数 func2， 这 两 个 函数 都 可 以 访问 


stuScore 变量 ， 这 里 Dim 关键 字 也 可 以 换 成 Private 关键 字 。 
3. 全 局 变量 

全 局 变量 是 在 应 用 程序 的 所 有 模块 中 或 窗 体 中 都 可 以 访问 的 变量 。 全 局 变量 在 模块 的 通 
用 声明 段 使 用 Public 语句 声明 ， 例 如 : 

Option Explicit 

Public intCount AS Integer 


这 里 声明 的 计数 变量 intCount 可 以 被 程序 中 的 窗 体 、 模 块 直接 引用 。 


【提示 】〗 程 序 中 可 能 会 有 许多 变量 ， 一 般 情 况 下 ， 应 该 尽量 使 用 局 部 变量 ， 只 有 要 在 不 同 过 程 之 间 共 享 
数据 时 ， 才 使 用 模块 变量 或 者 是 全 局 变量 。 


4.3.5 变量 的 生存 其 


变量 的 定义 域 表示 其 在 空间 上 的 作用 范围 ， 而 生存 期 是 表示 变量 在 时 间 上 的 范围 ， 即 变 
量 在 内 存 中 保留 的 时 间 。 变 量 的 作用 域 决定 了 该 变量 内 存 中 保留 的 时 间 。 

对 于 过 程 级 或 模块 级 的 变量 ， 每 次 调用 过 程 或 模块 时 ， 对 过 程 中 的 变量 初始 化 ， 退 出 时 
将 释放 变量 所 占 的 内 存 ， 变 量 随 之 消失 。 

如 果 将 过 程 级 或 模块 级 的 变量 声明 为 静态 变量 ， 则 在 退出 过 程 或 模块 时 ， 变 量 中 的 值 仍 
将 保留 在 内 存 中 ， 下 次 调用 时 可 以 继续 访问 。Static 关键 字 可 以 用 来 声明 一 个 或 多 个 静态 变 
量 ， 其 语法 格式 如 下 : 

Static 变量 名 称 AS 数据 类 型 


【 例 4.1】 比 较 静 态 变量 和 普通 变量 的 运行 结果 ， 操 作 过 程 如 下 。 


@ 肾 进入 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
他 在 模块 中 输入 以 下 代码 ， 如 图 4-1 所 示 。 


Sub testStaticl() 
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Dim Count1 As Integer 

Static s Count As Integer 

s Count = s Count + 1 

Countl = Countl + 1 

Debug.Print "Count1l :"; Countl 

Debug.Print "s Count : "; s Count 
End Sub 


通用) 可 eeststatiel 
Sub testStaticl O 


吕 包 


图 4-1 testStaticl 过 程 代码 


@ 旨 连续 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ( 带 绿色 小 三 角 图 标的 按钮 ) 3 次 ， 
使 该 子 过 程 运 行 3 次 ， 结 果 输 出 在 【立即 窗口 】 中 


如 图 4-2 所 示 ， 程 序 中 的 Countl 是 一 个 局 部 变量 ， 该 过 程 每 次 执行 时 Countl 都 会 被 初 
始 化 ， 执 行 完毕 之 后 将 其 自动 释放 ， 所 以 Countl 的 值 一 直 都 是 1 。 

而 变量 s_Count 被 定义 为 静态 变量 ， 只 有 第 一 次 进入 模块 时 才 进 行 初始 化 操作 ， 但 是 当 
退出 时 s_Count 并 没有 被 释放 ， 再 次 执行 该 模块 时 ，s_Count 将 在 保留 此 值 基础 上 再 次 加 1， 
所 以 每 次 执行 一 次 模块 ， 变 量 s Count 值 就 增加 1， 结 果 如 图 4-2 所 示 。 


图 4-2 静态 变量 的 生存 期 


运算 符 是 对 特定 数据 执行 运算 任务 的 操作 符 ， 将 常量 、 变 量 和 函数 等 运用 运算 符 连接 起 
来 的 运算 式 称 为 表达 式 。 常 见 的 有 4 种 基本 的 运算 符 : 算数 运算 符 、 比 较 运 算 符 、 逻 辑 运算 
符 和 连接 运算 符 。 本 小 节 将 分 别 介绍 这 几 类 运算 符 。 
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| 算术 表达 式 


算术 表达 式 是 由 算术 运算 符 与 操作 数 构成 。 算术 运算 是 计算 机 的 基本 功能 ，VBA 中 主要 


有 如 下 几 个 算术 运算 符 。 


@ +: 加 号 运算 符 ， 进 行 加 法 运算 ， 如 3+3 结果 为 6。 

@ 一 : 减法 运算 符 或 取 负 运算 符 ， 进 行 减法 运算 3- 1 结果 为 2，-2 表示 一 个 负数 。 
e@ *: 乘法 运算 符 ， 进 行 乘法 运算 ， 如 3*3 结果 为 9。 

@ /: 浮 点 除法 运算 符 ， 如 除法 运算 10/3 结果 为 3.333 333 3。 

@ \: 整数 除法 运算 符 ， 如 除法 运算 1083 结果 为 3。 

@ Mod: 取 模 运算 符 ， 返 回 两 个 数 的 除法 运算 后 的 余数 ， 如 12 Mod 5 余数 为 2。 

@ ^: 指数 运算 符 ， 进 行 乘 宕 运算 ， 如 342 结果 为 9。 


| 比较 表达 式 


比较 表达 式 是 由 比较 运算 符 与 操作 数 构成 。 比 较 运 算 符 用 于 比较 两 个 或 多 个 值 或 者 表达 


式 之 间 的 关系 。 比 较 运 算 符 的 结果 是 一 个 逻辑 值 ， 不 是 TRUE 就 是 FALSE。VBA 中 有 如 下 
几 个 比较 运算 符 。 


@ =: 等 于 运算 符 ， 用 于 比较 两 个 值 是 否 相等 ， 如 1=1 结果 为 TRUE。 

@ >: 大 于 运算 符 ， 用 于 比较 运算 符 左边 的 值 是 否 大 于 右边 的 值 ， 如 1>2 结果 为 FALSE，3>1 结 
果 为 TRUE。 

@ <: 小 于 运算 符 ， 用 于 比较 运算 符 左 边 的 值 是 否 小 于 右边 的 值 ， 如 1<2 结果 为 TRUE,，3<1 结果 
为 FALSE。 

@ >=: 大 于 等 于 运算 符 ， 用 于 比较 运算 符 左 边 的 数 是 否 大 于 或 者 等 于 右边 的 数 ， 如 1>=2 结果 为 
FALSE，2>=2 结果 为 TRUE，3>=1 结果 为 TRUE。 

@ <=: 小 于 等 于 运算 符 ， 用 于 比较 运算 符 左 边 的 数 是 否 小 于 或 者 等 于 右边 的 数 ， 如 1<=2 结果 为 
TRUE，2<=2 结果 为 TRUE，3<=1 结果 为 FALSE。 

@ 一 : 不 等 于 运算 符 ， 用 于 两 个 数 的 不 相等 判断 ， 如 1<>2 结果 为 TRUE，1<>1 结果 为 FALSE。 


4.4.3 逻辑 表达 式 


逻辑 表达 式 是 由 逻辑 运算 符 和 操作 数 构成 ， 逻 辑 运算 符 用 来 对 操作 数 执行 逻辑 运算 ， 其 


运算 结果 只 有 TRUE 和 FALSE 两 种 。VBA 中 常用 的 逻辑 运算 符 如 下 : 
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日 Not: 用 来 对 操作 数 进行 逻辑 否 运 算 。 

® And: 用 来 对 两 个 操作 数 进行 逻辑 与 运算 。 
日 Or: 用 来 对 两 个 操作 数 进行 逻辑 或 运算 。 

日 Xor: 用 来 对 两 个 操作 数 进行 逻辑 异 或 运算 。 


@ Eqv: 用 来 对 两 个 操作 数 进行 逻辑 等 价 运算 。 
@ Imp: 用 来 对 两 个 操作 数 进行 逻辑 蕴涵 运算 。 


假如 A 和 B 分 别 代表 两 个 任意 的 操作 数 ，T 代表 逻辑 真 值 (TRUE)，F 代表 逻辑 假 值 
(FALSE)， 则 各 种 逻辑 运算 结果 如 表 4-2 所 示 。 


表 4-2 有 逻 辑 运算 符 真 值 表 


操作 数 A 
操作 数 B 
NOTA 
AAndB 
AOrB 
AXorB 
AEqvB 
AlmpB 


4.4.4 连接 表达 式 


连接 表达 式 是 由 连接 运算 符 与 操作 数 构 成 。 连 接 运 算 符 用 来 连接 两 个 以 上 的 字符 串 ， 使 
其 成 为 一 个 单一 的 字符 串 ，VBA 中 有 两 个 连接 运算 符 ， 分 别 是 & 运 算 符 和 + 运算 符 。 
1. & 运 算 符 

及 运 算 符 可 以 把 多 个 字符 串 连接 在 一 起 ， 形 成 一 个 新 的 字符 串 ， 任 何 非 字 符 串 变 量 或 表 
达 式 在 进行 连接 运算 之 前 都 会 被 转换 为 字符 串 ， 例 如 : 

“VB FOR” & “Application” 的 结果 为 ”VB FOR Application”; 


“Excel ” & 2010 的 结果 为 ”Excel 2010” 
4&5 的 结果 是 字符 串 ”45”。 


2. + 运算 符 
+ 运算 符 既 可 以 做 加 法 运算 ， 也 可 用 于 字符 串 运算 ， 将 多 个 字符 串 连接 起 来 ， 形 成 一 个 
新 字符 串 , 但 是 与 & 运 算 符 不 同 , + 运算 符 只 有 在 操作 数 都 是 字符 串 时 才 进 行 连接 运算 , 例如 : 


“VB FOR” + “Application” 结 果 为 ”VB FOR Application” 
“” + 2010 运算 结果 出 错 ， 提 示 “ 类 型 不 匹配 ”的 错误 消息 。 
4 + 5 的 结果 为 整数 9。 


i 


: 
: 
: 
: 
i 
: 
: 
i 
i 
i 
i 
i 
:i 


| 15 | | | | 
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技巧 1: 快速 相互 转换 不 同类 型 的 数据 


VBA 中 提供 了 大 量 的 数据 类 型 , 这 些 不 同 的 数据 类 型 一 般 情况 下 应 用 在 不 同 的 场合 , 但 
在 某 些 特殊 条 件 下 ， 用 户 通 过 使 用 VBA 提供 的 各 种 转换 函数 就 可 以 实现 不 同 数据 类 型 的 相 
互 转换 。 例 如 : CBool (expression) 函数 将 返回 表达 式 的 值 是 一 个 已 转换 为 Boolean 子 类 型 
的 Variant 变量 ,这 里 expression 是 任意 有 效 的 表达 式 。 如 果 expression 是 0, 则 返回 False; 
否则 返回 True。 


Dim C, D, Check 


C= 5 D=5 "初始 化 变量 

Check = CBool(C = D) ' check 的 值 为 True 
c=0 ' 定 义 变量 

Check = CBool(C) ， Check 值 为 False 


CInt 函数 可 以 将 货币 、 单 精度 或 双 精度 的 数据 转换 成 整 型 的 数据 。 


Dim MyDouble, MyInt 
MyDouble = 2134.8756 ' MyDouble 是 Double 
MyInt = CInt (MyDouble) ' MyInt 值 为 2134 


VBA 中 还 有 许多 这 样 的 函数 ， 例 如 将 表达 式 转换 为 Long 子 类 型 的 CLng 函数 ; 将 表 
达 式 转换 为 Single 子 类 型 CSng 函数 ;将 表达 式 转换 为 String 子 类 型 CStr 函数 ， 等 等 。 读 
者 可 以 在 需要 使 用 这 些 函数 时 查阅 帮助 文档 ， 了 解 这 些 函 数 的 具体 用 法 。 
技巧 2: 自 定义 数据 类 型 

在 VBA 中 ， 用 户 可 以 使 用 Type 语句 自 定义 数据 的 类 型 ， 具 体格 式 如 下 : 


Type 数据 类 型 名 
数据 类 型 元 素 名 AS 数据 类 型 
数据 类 型 元 素 名 AS 数据 类 型 

End Type 


其 中 ， 数 据 类 型 名 为 自 定义 类 型 的 名 称 ， 数 据 类 型 为 基本 的 数据 类 型 。 例 如 : 
Type MyTpes 
Myname AS String ' 定 义 字符 串 存 储 一 个 名 字 


Mysex AS Integer ' 定 义 整 型 存储 性 别 
End Type 
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利用 VBA 中 的 程序 控制 结构 可 以 执行 条 件 判断 操作 ， 也 可 以 按 条 件 的 不 同 循环 执行 一 
些 指定 的 操作 , 甚至 还 可 以 将 条 件 判断 和 循环 操作 嵌 套 在 一 起 使 用 。 用 户 通 过 本 章节 的 学 习 ， 
将 熟练 掌握 VBA 编程 中 各 种 程序 控制 结构 的 知识 。 


5 
VBA 程序 结构 概述 


计算 机 只 是 按照 人 们 的 要 求 进行 处 理 ， 所 以 开发 人 员 需 要 告诉 计算 机 在 某 些 特殊 条 件 下 
应 该 执行 什么 样 的 操作 ，VBA 中 的 程序 结构 的 控制 语句 就 是 用 来 实现 这 样 的 控制 功能 的 。 常 
见 的 VBA 中 的 程序 结构 控制 语句 分 为 如 下 几 类 : 


(1) 条 件 判断 语句 ， 包 括 If Then Else 语句 和 Select Case 语句 。 
(2) 循环 语句 ， 包 括 For Next 语句 、Do loop 语句 、While Wend 语句 、For Each Next 语句 。 
(3) 退出 控制 语句 ， 包 括 Go To 语句 和 Exit 语句 。 


5 
判断 语句 


条 件 表达 式 的 结果 取 值 只 能 是 真 (TRUE) 或 者 假 (FALSE)， 判 断 语句 就 是 用 来 根据 条 
件 表 达 式 的 结果 来 控制 程序 的 流程 。 在 VBA 中 进行 条 件 判断 , 最 简单 的 是 使 用 “If Then Else” 
语句 ， 如 果 判 断 之 后 的 结果 很 多 ， 可 以 使 用 “Select Case” 语 句 。 


E20 lf Then Else 语句 


VBA 中 最 常用 的 分 支 语句 就 是 If Then Else， 该 语句 的 用 法 很 灵活 ， 使 用 时 根据 业务 需 
求 可 以 分 以 下 三 种 情况 。 

第 一 种 是 最 简单 的 形式 ， 只 有 一 个 条 件 判 断 分 支 语句 ， 要 么 执行 ， 要 么 不 执行 。 语 法 格 
式 如 下 : 


X 


Wh 


[天 入 门 与 实战 
IE < 条 件 表达 式 > Then < 满足 条 件 时 需要 执行 的 语句 > End If 
【 例 5.1】 使 用 IfThen 条 件 语句 判断 数值 的 大 小 ， 操 作 步骤 如 下 。 


@ 乔 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 . 
加 在 模块 中 输入 以 下 代码 ， 如 图 5-1 所 示 . 


Sub Samplel () 
Dim numl Rs Integer, num2 Rs Integer 
numl = 5 
num2 = 10 
If numl < 8 Then 
Debug.Print "numl 小 于 8" 
End If 
If num2 < 8 Then 
Debug.Print "num2 小 于 8" 
End If 
End Sub 


@ 虽 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按钮 ， 结 果 输 出 在 【立即 窗口 】 中 ,名 


所 示 。 


新 建 Wicrosoft Excel 工作 表 .... 车] 四 | 贺 
了 | |Samplel 


Sub Sanplel 0 
Tim nunl As Integer, nun2 As Integer 
numl = 5 


num2 = 10 
If numl < 8 The' 


mn 
Debug Print “nunl 小 于 8” 
End I 
If nun2 < 8 Then 

Bebe Print “nan2 小 于 8” 


图 5-1 IfThen 条 件 语句 图 5-2 ”判断 数值 大 小 


Samplel 模块 中 定义 了 两 个 整 型 变量 numl 和 num2，numl 值 为 5，num2 值 为 10， 第 一 
个 下 语句 判断 numl 的 值 是 否 小 于 8， 判断 结果 为 真 ， 所 以 打印 输出 结果 字符 串 “numl 小 于 
8” 而 num2 的 值 是 大 于 8 的 ， 所 以 条 件 判 断 结果 为 假 ， 此 时 Then 后 面 的 语句 不 能 被 执行 。 


第 二 种 形式 是 带 有 Else 的 形式 : 


If < 条 件 表达 式 > Then 
< 满足 条 件 时 需要 执行 的 语句 1> 


Else 


< 不 满足 条 件 时 需要 执行 的 语句 2> 
End If 


【 例 5.2】 使 用 If Then Else 条 件 语句 判断 学 生 的 成 绩 是 否 及 格 ， 操 作 步 骤 如 下 。 


@ 骨 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
@@ 到 在 模块 中 输入 以 下 代码 ， 如 图 5-3 所 示 。 
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Sub Sample2() 
Dim stuScore As Integer 
stuScore = 70 
If stuScore < 60 Then 
Debug.Print "成 绩 不 及 格 " 
Else 
Debug .Print "成 绩 及 格 " 
End If 


@ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 结 果 输 出 在 【立即 窗口 】 中 ， 如 图 5-4 


了 | Jsple2 


Sub Sanple20 
Din stuSeore hs Inteeer 
tuScos 


让 ceo 
Debug, Print 人 及 格 “ 


oe bve Print “成绩 及 格 ” 


图 5-3 IfThen Else 条 件 语句 图 5-4 IfThen Else 语句 执行 结果 


由 结果 可 以 看 到 ， 在 Sample2 模块 中 声明 了 一 个 变量 stuScore， 该 变量 保存 了 一 学 生 的 
成 绩 值 ， 因 为 stuScore 的 值 大 于 70 分 ， 所 以 下 语句 后 面 的 条 件 表达 式 判 断 结果 为 FALSE， 
所 以 程序 流程 将 执行 Else 后 面 的 语句 。 

第 三 种 形式 是 多 重 条 件 的 形式 : 

If < 条 件 表达 式 1> Then 

< 满足 条 件 1 时 需要 执行 的 语句 1> 


ElseIf < 条 件 表达 式 2> Then 
< 满足 条 件 2 时 需要 执行 的 语句 2> 


Else 
< 前 面 的 条 件 都 不 满足 时 执行 的 语句 n> 
End If 


【 例 5.3】 使 用 于 多 重 条 件 判断 语句 ， 根 据 学 生 的 成 绩 发 放 奖 学 金 ， 操 作 步 又 如 下 。 


@ 册 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 
@ 到 在 模块 中 输入 以 下 代码 ， 如 图 5-5 所 示 。 


Sub Samp13() 
Dim stuScore As Integer 
stuScore = 90 
IE stuScore > 95 Then 
Debug.Print "该 学 生 获得 一 等 奖学金 " 
ElLseIf stuScore > 85 Then 
Debug.Print "该 学 生 获 得 二 等 奖学金 " 
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Else 
Debug .Print "该 学 生 未 获得 奖学金 " 
End If 


人 @ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按钮 ， 结 果 输 出 在 【立即 窗口 】 中 ， 如 图 5-6 


Sub Sampl30 
D 


im stuScore As Integer 
stuScore = 90 
IE stuScore > 95 Then 

Debug. Print “该 学生 获 得 一 等 奖学金 
Elself stuScore > 85 Then 

Debug Print “该 学生 获得 二 等 奖学金 


5-5 ”If 多 重 条 件 语 句 图 5-6 If 多 重 条 件 语句 执行 结果 


由 图 5-6 所 示 的 执行 结果 可 以 看 到 ， 在 Sample3 模块 中 声明 了 一 个 变量 stuScore， 该 变 
量 保存 了 一 学 生 的 成 绩 值 ，stuScore 的 值 大 于 85 分 但 小 于 95 分 ， 所 以 下 语句 后 面 的 条 件 表 
达 式 判断 结果 为 FALSE， 接 着 程序 流程 将 继续 判断 ElseIf 后 面 的 语句 ， 表 达 式 stuScore > 85 
的 结果 为 TRUE， 所 以 打印 输出 后 面 的 奖学金 信息 。 


【提示 】〗If 语 名 可 以 有 多 个 分 支 ， 这些 分 支 将 依次 进行 判断 ， 当 茶 条 件 满足 时 ， 执 行 相应 的 语句 ， 其 余 
的 分 支 将 不 再 执行 ; 若 所 有 的 条 件 都 不 满足 ， 并 且 有 Else 子 句 ， 则 执行 Else 语句 后 面 的 代码 段 ， 否 则 
什么 都 不 执行 。 


Select Case 语句 


Select Case 语句 也 是 用 来 进行 多 条 件 判断 的 。 使 用 Select Case 语句 可 以 实现 多 重 下 语句 
相同 的 效果 ， 但 是 使 用 Select Case 语句 编写 的 流程 控制 代码 过 程 清晰 ， 容 易 理 解 。 在 条 件 表 
达 式 的 结果 比较 多 时 ， 可 以 选择 使 用 多 分 支 选择 结果 Select Case 语句 。 

Select Case 语句 根据 条 件 表达 式 的 求 值 结 果 ， 选 择 执行 几 个 分 支 中 的 一 个 分 支 ， 其 语法 
格式 如 下 : 

Select Case< 条 件 表 达 式 > 
Case 检验 值 1 
< 代码 段 1> 


Case 检验 值 2 
< 代码 段 2> 


Case 检验 值 n 
< 代码 段 n> 
Case Else 


< 代码 段 n+1> 
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End Select 


这 里 的 条 件 表达 式 与 ff 中 的 条 件 表达 式 不 同 ，If 条 件 表达 式 的 结果 只 能 是 TRUE 或 者 
FALSE， 在 Select Case 语句 中 条 件 表达 式 的 结果 可 以 是 数值 或 者 是 字符 串 。 条 件 表达 式 的 值 
与 某 个 Case 后 面 的 值 匹配 ， 则 执行 相应 的 代码 段 ， 如 果 不 止 一 个 Case 与 条 件 表 达 式 的 值 匹 
配 , 则 只 对 第 一 个 匹配 的 Case 执行 相应 的 代码 段 ; 如 果 所 有 的 检验 值 没有 一 个 与 条 件 表达 式 
4 值 匹 配 ， 则 VBA 执行 Case Else 语句 后 面 的 代码 段 。 代 码 段 中 可 以 包含 一 条 或 多 条 代码 。 

【 例 5.4】 使 用 Select Case 分 支 判断 语句 ， 操 作 步 骤 如 下 。 


@ 贡 打开 Excel 工作 簿 ， 在 表单 1 中 A 列 下 的 表格 中 依次 输入 下 
而 一 些 值 ，“ 一 级 作者 ” “二 级 作者 “三 级 作者 “四 级 作者 ” “五 级 
作者 "， 操 作 数据 位 置 如 图 5-7 所 示 。 
@3 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 . 
@ 引 在 模块 中 输入 以 下 代码 ， 如 图 5-8 所 示 。 
Sub Samp14() 


For Row = 1 To 5 
Select Case Range("A" & Row) .Value 


B 


aim 
图 
mm 
玛 


图 5-7 作者 等 级 数据 


Case "一 级 作者 " 

Range ("B" & Row) .Value = 3000 
Case "二 级 作者 " 

Range("B" & Row) .Value = 3500 
Case "三 级 作者 " 


Range ("B" & Row) .Value = 4000 
Case "四 级 作者 " 
Range ("B" & Row) .Value = 4500 
Case "五 级 作者 " 
Range("B" & Row) .Value = 5000 
End Select 
Next 
End Sub 


@ 细 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 结 果 输 出 在 Excel 表单 1 中 B 列 的 前 
五 行 ， 如 图 5-9 所 示 。 


[Saple4 


te ("A” & Eow). Value 
ee 
Ron) Value = 
ov) valae = 有 B 
Eon) Yaoe = 一 级 作者 3000 
[7 二 级 作者 3500 
三 级 作者 4000 
4500 
五 级 作者 5000 


aelolsl- 
且 
站 
全 
或 


5-8 Select Case 分 支 语句 图 5-9 Select Case 语句 执行 结果 
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由 图 5-9 执行 结果 可 以 看 到 ， 


在 Sample4 模块 中 首先 获取 到 表单 1 中 A 列 各 个 表格 中 的 


值 ，Select Case 语句 分 别 根据 A 列 各 个 表格 中 的 值 ， 判 断 作 者 等 级 ， 然 后 将 输出 该 等 级 的 作 
者 的 稿费 到 B 列 中 位 于 同一 行 的 表格 中 。 
上 一 个 例子 中 ，Select Case 中 的 Case 检验 值 是 一 些 具体 的 常量 值 , 这些 检验 值 还 可 以 是 


一 个 表达 式 。 


【 例 5.5】 根 据 购买 产品 的 数量 ， 决 定 出 售 的 价格 ， 操 作 步 骤 如 下 。 


@ 打开 Excel 工作 簿 ， 在 表单 1 中 A 列 下 的 表格 中 依次 输入 下 面 一 些 值 ; 
500,600,1000,300,5000,12000,100， 操 作 数 据 位 置 如 图 5-10 所 示 。 


& B 
500 

600 
1000 

300 
5000 
12000 

100 


onmmaeroaonr 


图 5-10 输入 购买 数量 


到 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 


@ 旨 在 模块 中 输入 以 下 代码 ， 


Sub Sample5() 


如 图 5-11 所 示 。 


Dim Price RS Single,quantity AS Integer 


Price = 100.0 
For Row = 1 To 7 


Quantity = Val (Range ("A" & Row) .Value) 


Select Case Quantity 
Case Is < 500 


Range ("B" & Row) . 


Case Is >= 500 
Range ("B" & Row) . 

Case Is >= 500 
Range ("B" & Row). 

Case Is >= 1000 


Range ("B" & Row) . 


Case Is >= 5000 


Range ("B" & Row) . 


Case Is >= 10000 
Range ("B" & Row) . 


End Select 
Next 
End Sub 
国 单 击 工具 栏 中 的 【运行 子 
五 行 ， 如 图 5-12 所 示 . 
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Value = price 

Value = price * 0.95 
Value = price * 0.9 
Value = price * 0.8 
Value = price * 0.8 


Value = price * 0.8 


过 程 /用 户 窗 体 】 按 钮 ， 结 果 输 出 在 Excel 表单 1 中 B 列 的 前 


加 六 下 四 mm 


图 5-11 Sample5 过 程 代码 图 5-12 ”Sample5 执行 结果 


由 图 5-12 执行 结果 可 以 看 到 ， 在 Sample5 模块 中 首先 获取 到 表单 1 中 A 列 各 个 表格 中 
的 值 ，Select Case 语句 分 别 根据 A 列 各 个 表格 中 的 值 ， 判 断 购买 的 产品 的 数量 ， 然 后 将 输出 
该 数量 的 打折 后 的 价格 到 B 列 中 位 于 同一 行 的 表格 中 。 


9.3 
循环 语句 


前 面 章节 中 读者 学 习 了 什么 是 判断 语句 以 及 如 何 使 用 判断 语句 , 在 介绍 Select Case 语句 
的 时 候 使 用 到 了 For Next 语句 ， 这 是 一 个 循环 语句 。 在 实际 的 业务 中 有 时 需要 反复 执行 一 段 
代码 ， 这 时 就 需要 使 用 循环 语句 ，VBA 中 的 循环 语句 有 For Next 语句 、Do loop 语句 、While 
Wend 语句 和 For Each Next 语句 。 本 节 分 别 介绍 这 些 语句 的 作用 和 用 法 。 


要 For Next 语句 


For Next 语句 是 最 常见 的 一 种 循环 语句 ， 该 语句 将 循环 指定 的 次 数 ， 在 执行 循环 操作 时 ， 
For 循环 中 指定 一 个 计数 器 , 每 次 循环 之 后 ， 计 数 器 的 数值 会 增加 或 者 减少 。For Next 语句 的 
基本 语法 格式 如 下 : 
For 循环 变量 = 初始 值 To 终止 值 [Step 步 长 ] 
循环 中 执行 的 操作 
Next [循环 变量 ] 
步 长 表示 循环 变量 每 次 的 增 量 ， 可 以 是 正 值 也 可 以 是 负 值 ， 如 果 是 正 值 ， 则 初始 值 必 须 
小 于 或 等 于 终止 值 才能 执行 循环 体 ， 如 果 步 长 为 负 值 ， 则 初始 值 必须 大 于 或 等 于 终止 值 才 能 
执行 循环 体 ， 默 认 情况 下 步 长 值 为 1 。 
【 例 5.6】 使 用 For 循环 将 A 列 的 偶数 单元 格 背景 设置 交叉 颜色 ， 操 作 过 程 如 下 。 


@ 和 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
@ 到 在 模块 中 输入 以 下 代码 ， 如 图 5-13 所 示 . 
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Sub Sample6() 
For Row= 1 To 50 
If Row Mod 2 = 0 Then 
Range ("A" & Row) .Interior.ColorIndex = 3 
Else 
Range ("A" & Row) .Interior.ColorIndex 


外 
a 


@ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 结 果 输 出 在 Excel 表单 1 中 A 列 的 前 


Sub Sanple8 0 
For Row = 


w= 1 Te 50 
IE Row oa 2 = 0 Then 
ange (人 ” & Row). Interior. ColorIndex = 3 


Range (“A” A Row). Interior ColorIndex = 5 
End IE 
Bext Row 


:oemnmomaoeonr- 


图 5-13 ”Sample6 过 程 代码 图 5-14 设置 单元 格 颜色 

在 该 循环 中 使 用 了 一 个 下 语 句 , 该 语句 用 于 判断 单元 格 所 在 格 的 行 是 偶数 行 还 是 奇数 行 ， 
如 果 行 号 被 2 除 时 余数 为 0， 则 表示 这 是 偶数 行 ， 执 行 代码 : 

Range ("R" & Row) .Interior.ColorIndex = 3 

否则 是 奇数 行 ， 执 行 下 面 代码 : 

Range ("R" & Row) .Interior.ColorIndex = 5 

这 里 Interior 表示 单元 格 内 部 对 象 ， 而 ColorIndex 是 内 部 对 象 中 一 个 表示 背景 颜色 的 属 
性 ， 通 过 该 参数 的 值 可 以 改变 单元 格 的 背景 颜色 。 

【 例 5.7】 打 印 For 循环 中 的 循环 变量 值 ， 指 定 步 长 为 -2， 操 作 过 程 如 下 。 

@ 曲 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 

@ 双 在 模块 中 输入 以 下 代码 ， 如 图 5-15 所 示 。 


Sub Sample7() 
For Count = 10 To -2 Step -2 
Debug.Print Count 


Next Count 
End Sub 
@ 则 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 结果 输出 到 【立即 窗口 】 中 , 如 图 5-16 


所 示 。 
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or = 10 Te -2 Step -2 
Jiebug Print Count 
Next Count 
End Sub 


5-15 ”Sample7 过 程 代码 图 5-16 打印 循环 变量 值 


由 图 5-16 的 执行 结果 可 以 看 到 ， 循 环 变量 的 初始 值 为 10， 终 止 值 为 -2， 步 长 为 -2， 循 环 
变量 从 10 开始 ， 每 次 减少 2， 循 环 6 次 ， 每 次 可 以 得 到 一 个 不 同 的 循环 变量 值 ， 当 循环 变量 
值 超过 -2 时 ， 循 环 终止 。 


项 到 Do Loop 语句 


For Next 循环 语句 的 循环 次 数 是 指定 的 , 并 且 次 数 是 确定 的 , 而 Do Loop 循环 语句 不 同 ， 
使 用 Do Loop 语句 循环 执行 一 段 代码 时 ， 循 环 的 次 数 是 不 确定 的 。 比 如 ， 公 司 的 财务 人 员 需 
要 统计 所 有 员工 的 工资 ， 但 是 公司 人 员 变 动 频繁 ,统计 之 前 可 能 不 知道 员工 的 具体 人 数 ， 此 
时 就 可 以 使 用 Do Loop 循环 。 

Do Loop 语句 需要 指定 循环 条 件 ， 当 条 件 为 True ， 或 直到 条 件 变 为 True 时 , 重复 执行 

-个 代码 块 。Do Loop 语句 有 两 种 用 法 ， 其 语法 格式 分 别 是 : 

Do [{While | Until} condition] 

[statements] 

[Exit Do] 


[statements] 
Loop 


或 者 可 以 使 用 下 面 这 种 语法 : 


Do 

[statements] 

[Exit Do] 

[statements] 

Loop [{While | Until} condition] 


第 一 种 语法 是 在 进入 循环 之 前 检查 条 件 表达 式 ， 第 二 种 语法 是 在 循环 至 少 运 行 一 次 之 后 
才 检 查 条 件 表达 式 。 

Condition 可 以 是 一 个 数值 表达 式 或 字符 串 表 达 式 ,其 值 为 True 或 False, 如 果 Condition 
是 Null， 则 Condition 会 被 当做 False，Condition 是 一 个 可 选 参数 。 

Statements 表示 一 条 或 多 条 命令 ， 当 或 直到 Condition 为 True 时 被 重复 执行 。 

Exit Do 语句 用 于 跳出 循环 , Do...Loop 中 可 以 在 任何 位 置 放置 任意 个 数 的 Exit Do 语句 ， 
随时 跳出 Do...Loop 循环 。Exit Do 通常 用 于 条 件 判断 之 后 ， 例 如 下 ..Then， 在 这 种 情况 下 ， 
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Exit Do 语句 执行 之 后 将 转移 到 紧 接 在 Loop 命令 之 后 的 语句 执行 。 
【 例 5.8】 提 示 Loop 循环 次 数 ， 操 作 过 程 如 下 : 


@ 凤 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
@ 到 在 模块 中 输入 以 下 代码 ， 如 图 5-17 所 示 。 


Sub Sample8 () 
Counter = 0 
myNum = 20 
Do While myNum > 10 
myNum = myNum - 1 
counter = counter + 1 
Loop 
MsgBox "该 循环 执行 了 " & counter & " 次 !" 
End Sub 


@ 旬 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 执行 结果 将 弹出 一 个 对 话 框 ， 告 诉 用 
户 当 前 循环 执行 的 次 数 ， 如 图 5-18 所 示 。 


新 建 Hicrosoft Excel 工作 表 .zl.-- 基 | 回 ] 圆 
了 |] [Smple8 


Sub Sanple8 0 
counter = 0 
mylfun = 20 
Do While my > 10 
mylfum = myjfoam — 1 
counter = counter + 1 


Microsoft Excel 辆 | 


加 “该 乔 环 执 行 了 “Acounter & “次 1“ 该 和 环 执行 了 10 次 ? 


图 5-17 Sample8 过 程 代码 图 5-18 ”Loop 循环 次 数 
该 模块 中 定义 了 两 个 变量 counter 和 myNum， 循环 开始 时 首先 对 myNum 进行 判断 ， 如 
果 值 大 于 10， 则 执行 Do Loop 之 间 的 代码 块 中 的 语句 : myNum 值 减 1， 同 时 计数 器 counter 
加 1。 循 环 结束 时 ， 将 提示 循环 执行 的 次 数 。 
下 面 介绍 循环 至 少 运行 一 次 之 后 才 检 查 条 件 表达 式 的 Do Loop 语句 的 用 法 。 
【 例 5.9】 编 写 一 个 用 户 登录 控制 代码 ， 如 果 用 户 输入 的 密码 次 数 超过 3 次 ， 禁 止 用 户 登 
录 ， 操 作 过 程 如 下 。 


人 @ 角 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
@ 双 在 模块 中 输入 以 下 代码 ， 如 图 5-19 所 示 。 


Sub Sample9() 

Dim pwd As String 

Dim count As Integer 

Do 
pwd = InputBox ("请 输入 密码 ") 
If pwd = "mypwd" Then 

Exit Do 

Else 
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MsgBox ("请 重新 输入 密码 ") 
End If 
count = count + 1 
Loop While count < 3 
If count >= 3 Then 
MsgBox ("超过 登录 次 数 ， 登 录 受 限 ! ") 
Else 
MsgBox ("欢迎 登录 ") 
End If 
End Sub 


@ 旬 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 执 行 结果 将 弹出 【请 输入 密码 】 对 话 
匡 ， 告 诉 用 户 输入 登录 密码 ， 如 图 5-20 所 示 ; 如 果 输 入 的 密码 不 是 “mypwd”， 则 提示 “请 重新 
输入 密码 ”消息 ， 登 录 次 数 超过 3 次 ， 用 户 将 无 法 登录 ， 如 图 5-21 所 示 ， 如 果 密 码 正确 ， 则 提示 
“欢迎 登录 ”的 消息 ， 如 图 5-22 所 示 。 


下 
HsgBox ("欢迎 车 录 ) 
nd Th 


5-19 Sample9 过 程 代码 图 5-20 提示 输入 密码 


Hicrosoft Excel 辆 | icrosoft Excel 区] 


超过 登录 次 数 ， 登 录 受 限 4 


图 5-21 登录 失败 图 5-22 登录 成 功 


5.3.3 While Wend 语句 


While...Wend 语句 是 Basic 早期 版 本 中 保留 下 的 语句 ， 其 功能 与 Do...While 循环 语句 相 i 
同 ，VBA 出 于 对 早期 版 本 的 兼容 性 考虑 ， 保 留 了 该 语句 ， 其 语法 格式 如 下 : 

While < 条 件 判 断 表 达 式 > 

< 代码 段 > 

Wend 

如 果 < 条 件 判断 表达 式 > 为 True， 则 所 有 的 代码 段 都 会 执行 ， 一 直 执行 到 Wend 语句 。 
然后 再 回 到 While 语句 , 并 再 一 次 检查 < 条 件 判 断 表达 式 >, 如 果 还 是 为 True, 则 重复 执行 。 
如 果 不 为 True， 则 程序 会 从 Wend 语句 之 后 的 语句 继续 执行 。 
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【 例 5.10】While 循环 变量 用 法 ， 操 作 过 程 如 下 。 


团 ) 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 . 
在 模块 中 输入 以 下 代码 ， 如 图 5-23 所 示 . 


Sub Samplel0() 
Dim Counter 


Counter = 0 ， 设置 变量 初 值 。 
While Counter < 20 ， 测试 计数 器 的 值 。 
Counter = Counter + 1 "将 计数 器 的 值 加 一 。 
Wend ' 当 counter > 19 时 则 循环 终止 。 
Debug.Print Counter "在 “立即 ”窗口 中 显示 数字 
End Sub 


@ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 执 行 结果 将 显示 在 【立即 窗口 】 中 ， 
如 图 5-24 所 示 。 


新 建 Wicrosoft Excel 工作 表 .xlsa - 模 -- - EEm 
了 |] [suplel0 


I 
unter = 0 
a . 
Counter . Counter + 1 
and on ar 
be 中 显 


Bebe Print Comter 
Subl 


图 5-23 ”Sample100 过 程 代码 图 5-24 While 循环 变量 值 


5.3.4 For Each Next 语句 


For Each Next 语句 与 For Next 语句 看 起 来 很 像 ，For Next 语句 执行 循环 前 指定 了 循环 的 
次 数 ， 而 For Each Next 语句 在 执行 不 确定 循环 次 数 。 该 语句 是 针对 一 个 数组 或 集合 中 的 每 个 
元 素 ， 重 复 执行 一 组 语句 。For Each Next 语句 的 语法 格式 如 下 : 

For Each < 元 素 > In < 集合 > 

[代码 段 ] 

[Exit For] 

Next [元 素 ] 


元 素 是 用 来 遍历 集合 或 数组 中 所 有 元 素 的 变量 。 对 于 集合 来 说 ,元 素 可 能 是 一 个 Variant 变 
量 、 一 个 通用 对 象 变量 或 任何 特殊 对 象 变量 。 对 于 数组 而 言 ， 元 素 只 能 是 一 个 Variant 变量 。 

集合 名 称 是 对 象 所 在 的 集合 或 数组 的 名 称 。 如 果 集 合 中 至 少 有 一 个 元 素 ， 就 会 进入 
For...Each 块 执 行 。 一 旦 进入 循环 ， 便 先 针 对 < 集合 > 中 第 一 个 元 素 执行 循环 中 的 所 有 语句 。 
如 果 < 集 合 > 中 还 有 其 他 元 素 ， 则 会 针对 它们 执行 循环 中 的 语句 ， 当 < 集合 > 中 的 所 有 元 素 都 执 
行 完 了 ， 便 会 退出 循环 ， 然 后 从 Next 语句 之 后 的 语句 继续 执行 。 

【 例 5.11 】 遍 历数 组 对 象 ， 操 作 过 程 如 下 。 
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@ 遇 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 . 
@ 双 在 模块 中 输入 以 下 代码 ， 如 图 5-25 所 示 . 


Sub Samplell() 
Dim MyRrray(10) As Integer, i As Variant 
For idx = 0 To 10 
MyArray (idx) = idx 
Next idx 
For Each i In MyArray 
Debug.Print i 
Next i 
End Sub 


@ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 执 行 结果 将 显示 在 【立即 窗口 】 中 ， 
如 图 5-26 所 示 。 


了 了] [Samplell 


Sub Sanplell O 
Dim MyArray (10) As Integer, i As Variant 
For idx = 0 To 10 
MyArray (idx) = idx 
Next i 
For Each i In NyArray 
Print i 


该 段 代 码 首先 使 用 For Next 语句 向 MyArray 数组 中 插入 一 些 数值 ， 然 后 使 用 For Each 
Next 语句 遍历 数组 中 的 各 个 对 象 的 值 。 
【 例 5.12】 在 指定 Al 到 C15 区 域 依 次 在 每 个 表格 中 插入 一 个 数值 ， 操 作 过 程 如 下 。 


@ 绷 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
@g 在 模块 中 输入 以 下 代码 ， 如 图 5-27 所 示 。 


Sub Samplel2() 
Worksheets ("Sheet1") .Activate 
Dim i As Integer 
> 
For Each obj In Range("Al:C15") 
obj .Value = i 


#4 
二 
3: 
#4 
#4 
3: 
:4 
和 
#4 
i 
i 
+ 
1 
i 
i 
i 
图 5-25 ”Samplell 过 程 代码 图 5-26 遍历 数组 对 象 | 
i 
i 
i 
和 
i 
和 
i 
和 
i 
i 
i 
i 
于 


站 eh 
Next obj 
End Sub 


@ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 执 行 结果 将 显示 Excel 表单 1 中 从 Al 
到 C15 区 域内 ， 如 图 5-28 所 示 。 
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1 1 2 3 

2 4 5 6 

3 7 8 9 

Sub Samplel20 4 10 11 12 
Worksheets (“Sheet1"). Activate 5 13 14 15 
Din i As Integer 6 16 17 18 
is 1 了 18 20 21 
For Each obj In Range ("Al:C15") 2 23 24 
obj. Value = i 9 25 26 27 

10 28 29 30 

11 31 32 33 

12 34 35 36 

13 37 38 39 


图 5-28 ”向 表格 插入 数据 


退出 控制 语句 用 于 退出 流程 控制 过 程 或 跳 到 指定 的 语句 位 置 处 。 退 出 控制 语句 包括 GoTo 
语句 和 Exit 语句 。 


GoTo 语句 


GoTo 语句 表示 无 条 件 地 转移 到 过 程 中 指定 的 行 。 其 语法 格式 如 下 : 
GoTo < 行 号 /标号 > 


< 行 号 /标号 > 参数 可 以 是 任意 的 行 标签 或 行 号 。 
GoTo 只 能 跳 到 它 所 在 过 程 中 的 行 。 


【提示 】〗GoTo 语句 只 能 跳出 所 在 过 程 中 的 行 。 


【 例 5.13】 设 置 跳 转 标签 ， 使 用 GoTo 语句 在 一 个 过 程 内 的 不 同 程序 段 间作 流程 控制 ， 
不 同 程序 段 用 不 同 的 “程序 标签 ”来 区 隔 ， 操 作 过 程 如 下 。 


园 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 . 
加 在 模块 中 输入 以 下 代码 ， 如 图 5-29 所 示 . 


Sub Samplel3() 
Dim Number, MyString 
Number = Int(Rnd * 10) Mod 2 ， 设置 变量 初始 值 ， 值 为 1 或 者 0 
' 判断 Number 的 值 以 决定 要 完成 哪 一 个 程序 区 段 〈 以 “程序 标签 ”来 表 式 )。 
If Number = 1 Then GoTo Linel Else GoTo Line2 
Linel: 
MyString = "Number equals 1" 
GoTo LastLine  ”， 完成 最 后 一 行 。 
Line2: 
MyString = "Number equals 2" 
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LastLine: 
Debug.Print MyString ， 将 “Number equals 1” 显 示 在 “立即 ”窗口 。 
End Sub 


人 @ 划 多 次 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ,执行 结果 将 显示 在 【立即 窗口 】 
中 ， 如 图 5-30 所 示 。 


=] [smelel3 


Humber equsls 2 
Humber equsls 1 

设置 去 县 初始 值 Humber equals 1 
条 芭 记 ( 以 “程序 标 和 "来 表 式 2 anber equals 2 


se Colo Li Yumber equals 2 
Jiamber equals 1 
Jiamber equals 1 
Yumber equals 1 
Tebae Print IyStrine 。′ 插 “ber equals 1”” 显示 在 “立即 ”窗口 - 

End Sub 本 


图 5-29 Sample13 过 程 代 码 图 5-30 ” 跳 转 流程 控制 


本 段 代 码 中 根据 Number 的 值 来 决定 程序 的 跳 转 位 置 , 当 Number 等 于 1 时 ,执行 "Linel:” 
标签 后 面 的 代码 ， 将 为 MyString 字符 串 变量 赋值 “Number equals 1”; 当 Number 等 于 2 时 ， 
将 为 MyString 字符 串 变量 赋值 “Number equals 2” 的 消息 ， 最 后 打印 输出 MyString 字符 串 中 
的 内 容 。 可 以 看 到 两 个 赋值 语句 每 次 执行 时 只 可 能 有 一 个 语句 被 执行 ， 这 就 是 因为 GoTo 语 
句 改变 了 程序 的 执行 流程 。 使 得 程序 可 以 根据 条 件 跳 转 。 


5.4.2 Exit 语句 


Exit 语句 用 于 当 循 环 满足 指定 条 件 时 强制 退出 循环 ， 其 语法 格式 如 下 : 
Exit For1DolFunctionl Sub 


@ Exit For 提供 一 种 退出 For 循环 的 方法 ， 并 且 只 能 在 For...Next 或 For Each...Next 循环 中 使 
用 。Exit For 会 将 控制 权 转 移 到 Next 之 后 的 语句 。 当 Exit For 用 在 底 套 的 For 循环 中 时 ， 
Exit For 将 控制 权 转 移 到 Exit For 所 在 位 置 的 外 层 循环 。 

@ Exit Do 提供 一 种 退出 Do...Loop 循环 的 方法 , 并 且 只 能 在 Do...Loop 循环 中 使 用 。Exit Do 会 
将 控制 权 转 移 到 Loop 语句 之 后 的 语句 。 当 Exit Do 用 在 说 套 的 Do...Loop 循环 中 时 , Exit Do 
会 将 控制 权 转 移 到 Exit Do 所 在 位 置 的 外 层 循环 。 i$ 

@ Exit Function 立即 从 包含 该 语句 的 Function 过 程 中 退出 。 程序 会 从 调用 Function 的 语句 之 后 
的 语句 继续 执行 。 

@ Exit Sub 立即 从 包含 该 语句 的 Sub 过 程 中 退出 。 程 序 会 从 调用 Sub 过 程 的 语句 之 后 的 语句 继 
续 执 行 。 


【 例 5.14】 使 用 Exit 语句 退出 For.Next 循环 、Do...Loop 循环 及 子 过 程 ， 操 作 过 程 如 下 。 
@ 凤 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 . 
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[@ 加 在 模块 中 输入 以 下 代码 ， 如 图 5-31 所 示 . 


Sub Samplel4() 
Dim I, MyNum 
Do ， 建立 无 穷 循 环 。 
For I=1 To 1000 ， 循环 1000 次 。 


MyNum = Int(Rnd * 1000) ， 生 成 一 随机 数码 。 
Select Case MyNum ， 检查 随 机 数码 。 
Case 7: 
Debug.Print "Exit For" 
Exit For ， 如果 是 7， 退 出 For. . .Next 循环 。 
Case 29: 
Debug.Print "Exit Do" 
Exit Do ， 如 果 是 29， 退 出 Do. . .Loop 循环 。 
Case 54: 


Debug.Print "Exit Sub" 


Exit Sub ， 如 果 是 54， 退 出 子 过 程 。 
End Select 
Next I 
Loop 
Debug .Print "退出 过 程 !" 
End Sub 
@ 虽 多 次 单 击 工具 栏 中 的 【运行 子 过程 / 用 户 窗 体 】 按 钮 ， 执 行 结果 将 显示 在 【立即 窗 


中 ， 如 图 5-32 所 示 。 


; 新建 了 icrosoft Excel 工作 表 . xlsm 


通用 ) 


Sub Sanplel4 0 


模块 ! (代码 ) [EE] 
了 | [Sanplei4 


To Ryan Er 1000) i 生 隐 捕 机 数码 
= Int Rnd * 一 
Et case yom ′ 检查 随机 数码 。 


Debue Erint "eit Ee Exit Sub 


Exit For 
Case 29; 


Exit Do 
Case 54 


如 果 是 7， 退出 For.. .Next 循环。 
De Min 


加 果 是 29， 退 出 De .Loop 循环 。 


了 xit Do 
Exit Sub 
了 xit Do 
Exit Sub 


Debug. Print “Exit Sub 


Exit Do 


Exit Sub hi 54， 退 出 子 过 程 。 
End Select 
Next I 
Loop 


Exit Do 
Exit For 


Exit For 
Exit Sub 


| 
End Sub 


图 5-31 Sample14 过 程 代码 图 5-32 退出 循环 过 程 
由 图 5-32 的 结果 可 以 看 到 , 每 次 执行 代码 产生 的 结果 都 可 能 是 不 相同 的 ， 因 为 每 次 产生 


的 随机 数 是 不 相同 的 ， 所 以 每 执行 一 次 代码 ， 都 有 可 能 执行 某 一 个 Exit 语句 ， 退 出 某 一 层 的 
循环 ， 或 者 直接 退出 Sub。 
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2 
合 实战 一 评定 学 生成 绩 等 级 


学 生成 绩 分 为 5 个 等 级 ， 分 别 根据 每 个 学 生 的 成 绩 进行 登记 判定 ， 判 断 规则 如 下 。 


: 成 绩 大 于 或 者 等 于 90 分 。 

: 成 绩 大 于 或 者 等 于 80 分 ， 小 于 90 分 。 
: 成 绩 大 于 或 者 等 于 70 分 ， 小 于 80 分 。 
: 成 绩 大 于 或 者 等 于 60 分 ， 小 于 70 分 。 
: 小 于 60 分 。 


操作 步骤 如 下 


人 @ 灿 打开 一 个 Excel 表单 ， 在 名 称 为 Sheetl 的 表单 中 输入 下 面 一 些 数据 ， 结 果 如 图 5-33 
所 示 。 


HHO» 


加 | 园 9 -1> 新 建 Microsoft Excel 工作 要 xlsm - Micros.。 局 回 吕 3 
二 开拍 入 页 醒 | 公式 小 过 市 网 视图 开发 加 能 器 估 呈 四 了 
ce > 在 | 姓名 a 
& B bis wa ua um ju 因 国 和 = 
| 
2 
3 
4 
5 
6 
8 | 
i | 
Ll0_ 
| | 
12| | 
EH | 
14 | 
15 | 
16 J 
17 
18 攻 
M4 VW Sheetl Sheet3 Sheet 2 7 M4 ] Gi 
平均 值 : 69.25 ”计数 : 19 ”条 和 : 554 |/ 团 回 四 100% (>) Cy +) 


图 5-33 待 评 定 学 生成 绩 


3 按 Alt+F11 键 , 打开 VBE 环境 ,依次 选择 【插入 】> 【模块 】 菜 单 命令 ,向 工程 中 插入 
一 个 模块 ， 编 写 代 码 如 下 : 
Sub 判断 等 级 () 


Dim iRow As Integer 

Dim sScore As Integer 

Dim level As String 

For iRow = 7 To 14 

Debug.Print Worksheets ("Sheet1") .Cells (iRow, 4) .Value 


SScore = Worksheets ("Sheet1l1") .Cells (iRow, 4) .Value 
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If sScore >= 90 Then 
level = "A" 

ElseIf sScore >= 80 Then 
level = "B" 

BlLseIf sScore >= 70 Then 

level = "C" 

ElseIf sScore >= 60 Then 
level = "D" 

Else: level = "E" 

End If 

Sheets (1) .Cells (iRow, 5) .Value = level 

Next iRow 


End Sub 


@ 旨 代码 输入 完成 ， 单 击 【 运 行 子 过 程 /用 户 窗 体 】 按 钮 ， 或 者 直接 按 F5 键 ,执行 模块 1 中 的 
代码 ， 执 行 之 后 可 以 看 到 不 同学 生 的 成 绩 等 级 信息 显示 在 E7 至 E14 的 表格 中 ， 结 果 如 图 5-34 所 示 。 


A B C ss F 

2 

3 

4 
L5 
[el 姓名 成 绩 
匡 划 | 刘海 90| 
Las_ 梁 云 76| 
| 80| 
Llo 王 飞 96| 
HL 陆 飞 45| 
2 段 党 67| 
[13] 李 华 腾 23 
[ET 丘处机 77 
15 


图 5-34 ”判断 成 绩 等 级 


5.6 
高 手 私房 菜 


技巧 1: 合理 利用 GoTo 语句 

VBA 保留 GoTo 语句 是 为 了 保持 与 早期 Basic 版 本 的 兼容 ， 太 多 的 GoTo 语句 ， 会 使 程 
序 代 码 不 容易 阅读 及 调试 ， 尽 可 能 使 用 结构 化 控制 语句 。 
技巧 2: Select Case 何 时 替换 If...Then...Else 

Select Case 语句 每 次 都 要 在 开始 时 计算 表达 式 的 值 ，1If...Then...Else 结构 为 每 个 ElseIf 
语句 计算 不 同 的 表达 式 。 只 有 当 If 语句 和 每 一 个 Elself 语句 计算 的 表达 式 相 同时 ， 才 能 用 
Select Case 结构 替换 If...Then...Else 结构 。 
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第 6 章 使 用 数组 


数组 是 一 种 特殊 的 变量 ， 该 变量 使 用 相同 的 名 称 存储 一 组 数据 。 例 如 ， 需 要 所 有 员工 的 
姓名 和 联系 方式 ， 用 户 可 以 创建 两 个 变量 来 存储 这 两 个 内 容 ， 但 使 用 数组 可 以 同时 存储 这 两 
项 信息 ， 而 且 可 以 一 次 保存 上 百 个 员工 的 信息 。 


6.1 
数组 简介 


数组 是 一 个 集合 ， 该 集合 中 变量 拥有 相同 的 数据 类 型 也 可 以 拥有 不 同 的 数据 类 型 ， 集 合 
中 的 变量 按照 一 定 的 顺序 排列 ， 使 用 数组 名 称 和 序号 的 组 合 可 以 指定 访问 数组 中 的 某 一 个 具 
体 的 数值 。 

根据 其 维 数 ， 数 组 可 以 分 为 一 维 数组 、 二 维 数组 等 更 高 维 数 的 数组 ， 常 用 的 就 是 一 维和 
二 维 数组 , 另外 在 VBA 中 还 可 以 定义 动态 数组 。 与 声明 变量 相似 , 声明 数组 时 可 以 使 用 Dim、 
Static、Private 或 者 Public 语句 来 声明 。 


6.2 
2 
声明 数组 
声明 数组 时 ， 要 在 数组 名 称 后 面 加 上 括号 ， 括 号 内 指定 数组 包含 的 具体 的 元 素数 ， 紧 接 
着 括号 后 面 可 以 写 上 元 素 的 数据 类 型 。 下 面 将 通过 代码 介绍 声明 数组 的 过 程 。 


6.2.1 声明 一 维 数组 


声明 长 度 固 定 的 一 维 数组 可 以 有 两 种 方法 ， 第 一 种 是 指定 数组 的 上 界 ; 第 二 种 是 同时 指 
定数 组 的 上 界 和 下 界 。 

第 一 种 方法 的 语法 格式 如 下 : 

Dim 数组 名 称 〈( 上 界 ) AS 数据 类 型 

这 里 “上 界 ”表示 数组 中 序号 的 最 大 值 ， 默 认 数 组 的 下 标 序号 从 0 开始 到 定义 的 上 界 。 
例如 : 


Wi 1 
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Dim FixArray(5) AS Double 


这 里 数组 名 称 为 FixArray, 数组 上 界 是 5, 该 数组 中 一 共 可 以 保存 6 个 数据 类 型 为 Double 
的 数据 ， 分 别 是 FixArray (0)、FixArray (1)、...、FixArray (5)。 

第 三 种 方法 的 语法 格式 如 下 : 

Dim 数组 名 (下 界 To 上 界 ) AS 数据 类 型 


该 格式 可 以 定义 数组 下 标 为 一 个 任意 的 值 ， 例 如 : 


Dim strRrray(-1 To 5) AS String 


这 里 定义 了 一 个 数组 strArray， 该 数组 中 一 共 可 以 保存 6 个 数据 类 型 为 String 的 数据 ， 
分 别 是 FixArray (-1)、FixArray (0)、...、FixArray (5)。 


【提示 】〗 定 义 数组 时 ， 数 组 的 下 标 必 须 是 一 个 常数 ， 不 能 是 变量 或 者 表达 式 。 下 面 的 代码 是 错误 的 ， 执 
行 时 将 会 报错 ， 如 图 6-1 所 示 。 


Sub testRrray() 

Dim lens As Integer 
lens = 5 

Dim MYRArray(lens) 
End Sub 


编译 错误 
要 求 常 数 表达 式 


6-1 错误 的 数组 定义 方式 


在 常用 的 编程 语言 中 ， 例 如 C、Java， 数 组 初始 下 标 都 是 从 0 开始 的 。 在 VBA 中 数组 下 
标 是 否 从 0 或 1 开始 是 根据 Option Base 语句 的 设置 。 如 果 希 望 数 组 索引 从 0 开始 ， 可 以 通 
过 Option Base 语句 来 设 定 ， 例 如 : 

Option Base 1 


Dim newArray (3) 


这 样 newArray 数组 中 将 只 包含 3 个 元 素 , 分 别 是 newArray(1)、newArray(2) 和 newArray 
(3)。 


【提示 】〗Option Base 语句 只 能 出 现在 用 户 窗 体 或 模块 的 声明 部 分 ， 不 能 出 现在 过 程 中 ， 并 且 必 须 放 在 
数组 声明 之 前 。 
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GG 声明 多 维 数 组 


前 面 介绍 的 数组 是 一 维 的 ， 使 用 一 个 下 标 值 就 可 以 访问 数组 中 的 元 素 。 多 维 数组 就 是 数 
组 的 数组 ， 即 数组 中 的 元 素 仍然 是 数组 ， 读 者 可 以 把 数据 想象 成 Excel 中 一 个 局 部 的 包含 行 
和 列 的 表格 。 在 声明 多 维 数组 时 要 设 定 行 和 列 的 数值 。 声 明 多 维 数组 可 以 有 两 种 方法 ， 其 语 
法 格式 分 别 如 下 : 


Dim 数组 名 称 (第 1 维 上 界 ， 第 2 维 上 界 ) As 数据 类 型 
和 
Dim 数组 名 称 〈 第 1 维 下 界 To 第 1 维 上 界 ， 第 2 维 下 界 To 第 2 维 上 界 ) Rs 数据 类 型 
如 果 需 要 将 表单 中 的 数据 保存 到 二 维 数组 中 ， 可 以 使 用 下 面 的 代码 快速 完成 填充 工作 : 


Dim sheetArray As Variant 
sheetArray = Worksheets ("Sheet1") .Range ("A2:D6") 


多 维 数组 中 可 以 保存 的 数据 个 数 是 两 个 维 数 的 乘积 ， 多 维 数组 可 以 是 一 个 超出 二 维 的 数 
组 ， 定 义 多维 数 组 的 格式 与 二 维 数组 类 似 ， 每 一 维 都 使 用 逗号 阳 开 即 可 。 例 如 : 


Dim tmpRrray(1 To 300) As String 

该 语句 定义 了 一 个 字符 串 数组 ， 其 中 可 以 保存 300 个 字符 串 。 

Dim tmpArray (1 To 300, 1 To 10) Rs String 

该 语句 定义 了 一 个 二 维 的 字符 串 数组 ， 其 中 可 以 保存 3000 个 字符 串 ， 即 300 X10。 
Dim tmpRrray(1 To 300, 1 To 10,1 To 20) Rs String 

该 语句 定义 了 一 个 三 维 的 字符 串 数组 , 其 中 可 以 保存 60 000 个 字符 串 , 即 300 X10X20。 


【提示 〗 多 维 数组 将 会 占用 很 大 的 内 存 空间 ， 并 且 维 数 太 多 的 数组 并 没有 太 多 的 实际 价值 ， 因 为 应 用 中 
很 少 使 用 超出 三 维 的 数组 。 


6.3 
初始 化 数组 


数组 声明 之 后 ,其 中 还 没有 数据 ，VBA 在 创建 数组 之 后 自动 地 初始 化 数组 中 的 每 一 个 元 
素 : 数值 型 的 数组 ， 其 中 每 一 个 元 素 都 将 是 0 值 ， 而 字符 串 类 型 的 数组 ， 其 中 每 个 元 素 都 是 
一 个 空 字符 串 。 本 节 将 介绍 为 数组 赋值 的 几 种 方法 。 
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冉 8 使 用 循环 语句 初始 化 数组 


使 用 循环 语句 初始 化 数组 是 一 种 快速 的 方法 ， 使 用 循环 语句 进行 操作 ， 可 以 让 用 户 逐 个 
输入 数组 的 初始 值 ， 也 可 以 按 表单 中 的 表格 内 存储 的 值 来 对 数组 赋值 。 

【 例 6.1】 为 每 一 个 数组 元 素 指 定 值 ， 操 作 过 程 如 下 。 

@ 肾 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 

@g 在 模块 中 输入 以 下 代码 ， 如 图 6-2 所 示 。 


Sub samplel () 


Dim idx As Integer 
Dim strRrray(1 To 5) As String 
For idx = 1 To 5 
strArray (idx) = InputBox ("请 输入 第 "” & idx & "个 字母 ") 
Next 
Boridz = 1 To05 
Debug.Print strArray (idx) 
Next 


End Sub 


@ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按钮 ， 系 统 弹出 输入 对 话 框 ， 每 次 需要 在 这 


里 输入 


| 通用 ) 了 | [samplel 


个 字符 串 ， 输 入 完成 之 后 数组 中 的 元 素 将 显示 在 【立即 窗口 】 中 ， 如 图 6-3 所 示 。 


新 建 Hicrosoft Excel 工作 表 .xlsm - 模块 1. - 


Sub sanplel | 
im idx As Integer 
Jim strArray(! To 5) As String 
For idx = 1 To 5 


strArray (idx) = InputBox ("请 输入 第 ”& idx & “个 字母 
Next 
For idx =1T05 
Debug, Print strArray (idx) 
Mext 
End Sub 


于 4 | 


图 6-2 为 数组 元 素 指定 值 图 6-3 打印 数组 元 素 


【 例 6.2】 使 用 数组 中 的 值 填充 表单 中 的 标题 名 称 ， 操 作 过 程 如 下 。 


@ 角 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
@ 到 在 模块 中 输入 以 下 代码 ， 如 图 6-4 所 示 。 


Option Base 1 


Sub Sample2() 


78 


Dim titleArray As Variant 

Dim idx As Integer 

' 声 明 用 于 填充 表格 标题 名 称 数 组 

titleArray = Array ("员工 姓名 "， "性别"，" 年 龄 "， "编号") 


With Worksheets ("Sheet1") "选择 sheet1 表单 


For idx = 1 To UBound (titlearray)  ' 遍 历 titleArray 中 的 元 素 
.Cells (1，idx) .Value = titleArray (idx) ' 设 置 表格 标题 名 称 
Next count 
End With 
End Sub 


该 段 代码 中 创建 数组 时 使 用 了 Variant 变量 , 该 变量 可 以 存储 任何 类 型 的 信息 , 要 快速 填 
充 数 组 , 可 创建 一 个 类 型 为 Variant 的 变量 , 这 种 变量 可 像 数组 那样 使 用 , 数据 被 存储 到 Variant 
变量 中 后 ， 将 具有 数组 的 特征 。 


@ 琶 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ,结果 显示 在 Excel Sheetl 中 第 一 行 的 前 
4 个 表格 ， 如 图 6-5 所 示 。 


新 建 Wicrosoft Excel 工作 表 -xlsa - 模块 1 (代码 ) ” 必 ] 操 | 贺 


了 ] [suple2 


Sub Sanple20 
Dim titleArray As Yariant 
Dim idx As Intei 
i 全称 汐 组 
titlehrray = Array [商工 姓名 “性别 "， 年龄"，“ 编 号) 


With Worksheets (“Sheet1”) 选择 sheet1 表 单 
For idx = 1 To ed eke “遍历 titleArr 
Cells (1, idx), Value = titleArray (idx) 1 
Next count 
End With 


A B C 
员工 姓名 性 别 年 龄 编号 


图 6-5 填充 表单 中 的 标题 名 称 
【 例 6.3】 将 表单 中 的 数组 保存 到 二 维 数组 ， 操 作 过 程 如 下 。 


@ 遇 在 上 一 个 例题 的 基础 上 ， 读 者 首先 在 Sheetl 表单 中 插入 一 些 数据 ， 例 如 笔者 这 里 插入 
了 一 些 员工 的 个 人 信息 ， 如 图 6-6 所 示 。 


入 B G D 

1 员工 姓名 性 别 年 龄 编号 

2 李 丽 pe 21 101 
3_ 李 明 男 22 102 
生 _ 格林 男 23 103 
5 露 西 女 24 104 
6 王磊 男 21 105 
7 


图 6-6 员工 个 人 信息 数据 


加 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜单 命令 . 
团 / 在 模块 中 输入 以 下 代码 ， 如 图 6-7 所 示 。 


Sub Sample3() 
Dim sheetArray(2 To 6，1 To 4) 


.第 6 章 . 使 用 数组 
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Wi 
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Dim row As Integer, col As Integer, count As Integer 
"将 表单 中 的 数据 保存 到 二 维 数组 中 
For row = 2 To 6 
For col = TITo 4 
sheetArray (row, col) = Worksheets ("Sheet1l") .Cells (row，col) .Value 
Next col 
Next row 
"查看 保存 之 后 的 结果 
For row = 2 To 6 
Debug.Print 
For col = 1 To 4 
Debug.Print sheetArray (row, col) 7 
Next col 
Next row 
End Sub 


@ 费 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 结 果 显示 在 【立即 窗口 】 中 ， 如 图 6-8 
所 示 。 


新 建 Wicrosoft Excel 工作 表 .xlsa - 模块 1 (代码 ) 


Sub Sanple30 
Dim sheetArray (2 To 6, 1 To 4) 
jin row As Integer, col As Integer, 
“将 开间 中 的 冯 拓 了 从 到 一 淮 下 组 中 
For row =2 To6 
For col = 1 To 4 
SheetArray (row, col) = Worksheets("Sheetl”). Cells(row, col). Value 


count As Integer 


eol = 1 To 4 
Debye. Print sheethrrey Gror, col); 
et eo] 


图 6-7 将 表单 中 的 数据 复制 到 二 维 数组 图 6-8 打印 二 维 数组 元 素 
由 图 6-8 所 示 的 结果 可 以 看 到 使 用 二 维 数组 可 以 完美 地 将 表格 中 的 数据 保存 起 来 。 


6.3.2 使 用 Array 函数 初始 化 数组 


使 用 刚才 为 数组 赋值 的 方法 ， 需 要 逐个 输入 元 素 值 ， 因 此 效率 很 低 。VBA 中 可 以 使 用 
Array 函数 为 数组 元 素 赋值 , 该 函数 将 把 数据 集 一 次 性 插入 到 数组 中 , Array 函数 的 用 法 如 下 : 

数组 名 称 = Array (数据 集合 ) 

数组 名 称 是 前 面 已 经 定好 的 数组 名 ， 函 数 中 是 一 些 常数 构成 的 数据 集合 ， 多 个 值 之 间 使 
用 去 号 隔 开 。 

【 例 6.4】 使 用 Array 函数 为 数组 元 素 赋值 ， 操 作 过 程 如 下 。 

@ 角 打开 VBE， 依 次 选择 【插入 】> 【模块 】 莱 单 命令 。 

他 在 模块 中 输入 以 下 代码 ， 如 图 6-9 所 示 。 
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Sub Sample4() 
Dim monthArray As Variant, idx As Integer 
monthArray 二 ,Corn 一 月 wm 月 % ns 月 "一 ”网 月 ws 月 ww 月 mw 七 月 ww 

八 月 "，" 九 月 "，" 十 月 "，" 十 一 月 "，" 十 二 月 ") 
For idx = 0 To 11 
Debug.Print monthArray (idx) 
Next idx 


@ 则 单 击 工具 栏 中 的 【运行 子 过程 / 用 户 窗 体 】 按 钮 打印 输 出 数组 中 元 素 的 值 ， 
在 【立即 窗口 】 中 ， 如 图 6-10 所 示 。 


0 11| 
Debug. Print monthAr 
Next idx 
End Sub 


Was 1 有 El 


图 6-9 使 用 Array 函数 为 数组 赋值 图 6-10 打印 赋值 结果 


6.3.3 用 数组 值 初始 化 数组 


数组 中 的 元 素 可 以 被 访问 和 使 用 , 所 以 , 可 以 将 一 个 数组 中 的 元 素 复 制 到 另 一 个 数组 中 ， 
使 用 一 个 循环 语句 就 可 以 完成 数组 与 数组 的 复制 。 

【 例 6.5】 使 用 数组 元 素 对 数组 赋值 ， 操 作 过 程 如 下 。 

上 @ 央 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 . 

@ 浊 在 模块 中 输入 以 下 代码 ， 如 图 6-11 所 示 。 


Option Base 1 


Sub Sample5() 
Dim orignArray Rs Variant, destArray(l To 12) As String 
Dim idx As Integer 
orignaArray = Mrray("— 月 "; "= 月 *, "= 有 月" "WA "Ew "A 有 A wb 有 Yi™ 
八 月 "，" 九 月 "，" 十 月 "，" 十 一 月 "，" 十 二 月 ") 
' 数 组 对 找 
Foridx = 1 To UBound(orignArray) 
destArray(idx) = orignArray(idx) 
Next idx 
"打印 目标 数组 中 的 元 素 
For idx = 1 To UBound (destArray) 
Debug.Print destArray (idx) 
Next idx 
End Sub 
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@ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 打 印 输出 数组 中 元 素 的 值 ， 结 果 显 示 在 
【立即 窗口 】 中 ， 与 图 6-10 所 示 的 结果 相同 。 


本 [Soples 


Dption Base 1 


Sub Sanple50 
| Bln ged reiee unereg To 12) ha saine 


Next_ idx 
中 的 元 来 
er ide To Womdlaortirre 
Cr 
Next idx 
End Sub 


6-11 使 用 数组 元 素 为 数组 赋值 


上 面 的 代码 中 ， 如 果 destArray 是 一 个 Variant 变量 ， 那 么 通过 一 条 语句 就 可 以 实现 数组 
的 对 拷 。Sample5 模块 中 的 代码 可 以 修改 如 下 : 


Option Base 1 


Sub Sample5() 
Dim orignArray Rs Variant, destArray As Variant 
Dim idx As Integer 
orignArray = Array(" 一 月 "，" 二 月 "，" 三 月 "，" 由 月 "，" 五 月 "，" 六 月 "，" 七 月 ",，" 
八 月 "，。" 泌 月 "5 十 月 "，" 十 一 月 "，" 十 二 月 ") 
"数组 对 拷 
destArray = 
,打印 目标 数组 中 的 元 
For idx = 1 To UBound (destRArray) 
Debug.Print destArray (idx) 
Next idx 


End Sub 


6.4 
动态 数组 


动态 数组 中 可 以 保存 的 元 素 的 个 数 是 不 确定 的 , 前 面 介绍 的 数组 在 定义 或 初始 化 时 已 经 限定 
了 数组 的 长 度 ， 这 些 数组 可 以 称 为 静态 数组 ， 而 动态 数组 的 长 度 在 程序 运行 时 可 以 改变 。 


6.4.1 声明 动态 数组 


在 使 用 动态 数组 之 前 ， 首 先 要 声明 。 例 如 ， 下 面 的 语句 声明 一 个 动态 数组 : 


Dim dymArray() 
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该 动态 数组 名 称 为 dymArray， 其 中 将 保持 Variant 类 型 的 数据 。 


动态 数组 的 使 用 分 为 两 个 步骤 : 第 一 步 先 在 用 户 定义 的 模块 或 过 程 中 使 用 Dim 或 者 
Public 声明 一 个 没有 下 标的 数组 ， 即 括号 内 为 空 值 ， 第 二 步 在 后 面 的 代码 中 ， 每 当 需 要 时 ， 
可 以 使 用 ReDim 语句 重新 定义 该 数组 的 大 小 。ReDim 语句 的 语法 格式 如 下 : 


ReDim [Preserver] 数组 名 称 (下 边 ) [as 数据 类 型 ] 
【 例 6.6】 获 取 当 前 Excel 工作 筹 中 各 个 表单 的 名 称 ， 操 作 过 程 如 下 。 


@ 遇 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
@ 双 在 模块 中 输入 以 下 代码 ， 如 图 6-12 所 示 。 


Sub Sample6() 
Dim sheetArray() As String 
Dim idx As Integer, num As Integer 
num = ActiveWorkbook.Worksheets.count 
ReDim sheetArray(l To num) 
For idx = 1 To num 
sheetArray (idx) = ActiveWorkbook.Sheets (idx) .Name 


Next idx 


For idx = 1 To num 
Debug.Print sheetArray (idx) 


Next idx 
End Sub 


0 闻 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 打印 输 出 数组 中 元 素 的 值 ， 结 果 显 示 
， 如 图 6-13 所 示 。 


在 【立即 窗口 】 中 


图 6-12 获取 Excel 表单 的 名 称 图 6-13 打印 各 个 表单 名 称 
默认 情况 下 ， 如 果 直接 执行 ReDim 语句 ， 则 数组 中 原来 的 数据 将 会 丢失 ， 如 果 想 要 保持 


原先 的 值 ， 则 需要 使 用 ReDim Preserve 语句 来 扩充 数组 。 如 果 是 一 个 多 维 动态 数组 ， 则 使 用 


Preserve 关键 字 只 


一 维 的 ， 则 可 以 寻 
二 维 或 更 多 维 时 ， 


:能 改变 最 后 一 维 的 大 小 ， 并 且 不 能 改变 维 数 的 数目 。 例 如 ， 如 果 数 组 就 是 
EE 定义 该 维 的 大 小 ， 因 为 它 是 最 末 维 ， 也 是 仅 有 的 一 维 。 不 过 ， 如 果 数 组 是 
则 只 有 改变 其 最 末 维 才能 同时 保留 数组 中 的 内 容 。 


下 面 的 示例 介绍 了 如 何在 为 已 有 的 动态 数组 增加 其 最 未 维 大 小 的 同时 而 不 清除 其 中 所 含 


的 任何 数据 。 
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ReDim X(10, 10, 10) 
ReDim Preserve xX(10, 10, 15) 


同样 地 ， 在 使 用 Preserve 时 ， 只 能 通过 改变 上 界 来 改变 数组 的 大 小 ， 改 变 下 界 则 会 导 
致 错误 。 如 果 将 数组 改 小 ， 则 被 删除 的 元 素 中 的 数据 就 会 丢失 。 


6.4.2 数组 的 清除 


动态 数组 可 以 在 程序 运行 中 改变 数组 的 长 度 , 那么 静态 数组 是 否 也 能 改变 呢 ? 虽然 VBA 
中 不 能 改变 静态 数组 的 长 度 ， 但 是 可 以 在 静态 数组 不 需要 时 ， 将 数组 中 的 内 容 清除 或 对 数组 
进行 重 定义 ， 此 时 可 以 使 用 Erase 语句 来 完成 。Erase 语句 的 语法 格式 如 下 : 
Erase 数组 列表 
数组 列表 是 一 个 或 多 个 用 逗号 隔 开 的 需要 清除 的 数组 变量 。 
对 于 静态 数组 和 动态 数组 ，Erase 将 采取 完全 不 同 的 行为 。 
表 6-1 列 出 了 Erase 语句 针对 静态 数组 的 操作 规则 。 
表 6-1 Erase 对 静态 数组 元 素 的 操作 
数组 类 型 Erase 对 固定 数组 元 素 的 影响 
四 i 纪 
义 类 型 的 数 和 


将 每 个 元 素 设 为 特定 值 Nothing 


而 对 于 动态 数组 ，Erase 释放 动态 数组 所 使 用 的 内 存 。 在 下 次 引用 该 动态 数组 之 前 ， 程 
序 必须 使 用 ReDim 语句 来 重新 定义 该 数组 变量 的 维 数 。 

静态 数组 在 使 用 Erase 语句 之 后 ， 仍 然 存 在 ， 只 是 其 内 容 被 清除 了 ， 而 动态 数组 在 使 用 
Erase 语句 之 后 就 不 存在 了 。 

【 例 6.7】 使 用 Erase 语句 清除 数组 ， 操 作 过 程 如 下 。 


@ 册 打开 VBE， 依 次 选择 【插入 】> 【模块 】 莱 单 命令 。 
到 在 模块 中 输入 以 下 代码 ， 如 图 6-14 所 示 。 


Sub Sample7() 


Dim NumArray (10) As Integer "Integer 数组 。 

Dim StrVarArray(10) As String ' 变 长 的 string 数组 。 
Dim StrFixArray(10) Rs String ' 定 长 的 String 数组 。 
Dim VarArray (10) As Variant "variant 数组 。 

Dim DynamicArray() Rs Integer ' 动 态 数组 。 
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ReDim DynamicArray (10) ' 分 配 存储 空间 。 

Erase NumArray ' 将 每 个 元 素 设 为 0。 

Erase StrVarArray ' 将 每 个 元 素 设 为 

" 零 长 度 字符 串 ("")。 

Erase StrFixArray "将 每 个 元 素 设 为 0。 

Erase VarArray "将 每 个 元 素 设 为 Empty。 

Erase DynamicRrray "释放 数组 所 用 内 存 。 

"Debug.Print DynamicArray (1) "动态 数组 被 删除 ， 访 问 将 出 错 

Debug.Print NumArray (1) ' 静 态 数组 被 初始 化 ， 其 元 素 值 为 0 
End Sub 


@ 引 单 击 工具 栏 中 的 【运行 子 过程 / 用 户 窗 体 】 按 钮 ， 打 印 输出 静态 数组 中 元 素 的 值 ， 结 果 
显示 在 【立即 窗口 】 中 ,倒数 第 二 个 Debug.Print 语句 无 法 执行 ， 执 行将 会 出 现 “下 标 越 界 ” 的 提 
示 错 误 。 如 图 6-15 所 示 为 错误 提示 信息 框 。 


icrosoft Yisual Basic 


ebug, Prinm oy( 
bug Print NonArray (1) 


全 和 口上 给 课外 | 于 助 00 
图 6-15 访问 错误 


VBA 中 提供 了 几 个 主要 用 于 数组 的 函数 : Array、IsArray、Erase、Lbound 和 Ubound， 
其 中 Ubound、Array 和 Rease 函数 在 前 面 的 例题 中 已经 遇 到 过 了 。 下 面 介绍 另外 两 个 函数 的 
用 法 。 


6.5.1 判断 数组 


数组 和 变量 都 可 以 使 用 Dim 语句 声明 ， 有 时 仅 根 据 变量 的 名 称 , 无 法 判断 这 是 一 个 普通 
变量 还 是 一 个 数组 变量 ， 使 用 IsArray 函数 可 以 检查 指定 的 变量 是 否 为 一 个 数组 。 如 果 是 数 
组 ， 则 返回 True， 和 否则 返回 False。 

【 例 6.8】 使 用 IsArray 函数 判断 数组 变量 ， 操 作 过 程 如 下 : 


@ 灿 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
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6 加 在 模块 中 输入 以 下 代码 ， 如 图 6-16 所 示 . 


Sub Sample8 () 
Dim nameArray(l To 10) Rs Integer, ageArray, myCheck 
ageArray = Array (1，2，3) “使 用 Array 函数 赋值 


myCheck = IsArray (nameArray) 
Debug.Print myCheck 


myCheck = IsArray (ageArray) 
Debug.Print myCheck 


myCheck = IsArray (myCheck) 
Debug.Print myCheck 
End Sub 


@ 旬 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 打印 输出 数组 中 元 素 的 值 ， 结 果 显 示 
在 【立即 窗口 】 中 ， 如 图 6-17 所 示 。 


新 建 icrosoft Excel 工作 表 -xlsa 一 


Sub Sanple8 0 
Dim nameArray (1 To 10) As Integer, ageArray, myCheck 
eerey = 和 ray (1，2，3) “借用 A oy 痢 站 也 


nyCheck = Tshrray (naneArray) 
Debug Print myCheck 


myCheck = Tshrray (ageArray) 
Debug Print myCheck 


nyCheck = Tshrray (nyCheck) 
Debug. Print myCheck 
nd Sub 


图 6-16 判断 数组 变量 图 6-17 IsArray 函数 判断 结果 


6.5.2 查询 数组 的 下 标 范围 


LBound 函数 和 UBound 函数 对 应 ，UBound 函数 获取 指定 数组 维 的 上 界 ， 而 LBound 函 
数 获取 指定 数组 维 的 下 界 。LBound 函数 的 语法 格式 如 下 : 

LBound (数组 名 称 [, 维 数 ] ) 

数组 名 称 是 必需 的 。 数 组 变量 的 名 称 遵循 标准 的 变量 命名 约定 。 

维 数 是 可 选 的 ， 指 定 返 回 哪 一 维 的 下 界 。1 表示 第 一 维 ，2 表示 第 二 维 ， 以 此 类 推 。 如 果 
省 略 维 数 ， 就 认为 是 1。 

【 例 6.9】 使 用 LBound 函数 查询 数组 的 下 界 值 ， 操 作 过 程 如 下 : 

@ 胡 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 

@ 双 在 模块 中 输入 以 下 代码 ， 如 图 6-18 所 示 。 


Sub Sample9() 


86 


Dim Lower 


Dim A(1 To 100, 0 To 3, -3 To 4) 


Dim AnyArray (10) 


Lower = LBound (A，1) ' 返 回 1 


Debug .Print Lower 


Lower = LBound (A，2) ' 返 回 0 


Debug.Print Lower 


Lower = LBound (A，3) ' 返 回 -3 


Debug.Print Lower 


Lower = LBound (AnyArray) "返回 0 或 1， 取 决 于 


Debug.Print Lower 
End Sub 


@ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 打印 输出 数组 中 元 素 的 值 ， 结 果 显 示 
在 【立即 窗口 】 中 ， 如 图 6-19 所 示 。 


新 建 Wicrosoft Excel 工作 表 .xlsn -... 攻关 | 加 


"option Base 的 设置 。 


了 ] [Sample9 


Sub Sanple9 0 


Dim Lower 
Din A To 100 0 To 3 -3 Te 4) 


m AnyArray (10) 


= LBoundO 1) 
DE 


er = LBound 人，2)“ 返 
器 ae Print Lover 


Lower = LBoundW，3) “返回 - 


Debug Print Lower 
Lower = LBound (AnyArra 


Debug, Print Lower 
End Sub 


图 6-18 查询 数组 下 界 图 6-19 打印 下 界 值 


mlb 6.6 


人 
综合 实战 


返回 0 或 1， 取决 于 
Dption Base 的 设置 。 ”一 


可 


实际 应 用 中 经 常会 遇 到 需要 对 某 列 数据 进行 降序 或 者 升序 的 方式 排列 ， 这 两 个 过 程 的 思 
路 是 相同 的 ， 这 里 以 降序 排列 为 例 。 


操作 步骤 如 下 : 
@ 遇 打开 一 个 Excel 表单 ， 


Sub getMaxValue () 


按 AlttF11 键 , 打开 VBE 环境 ， 依 次 选择 【插入 】> 【模块 】 菜 


单 命令 ， 向 工程 中 插入 一 个 模块 ， 编 写 代 码 如 下 : 
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代码 输入 完成 ， 单 击 【 运 行 子 过 程 /用 户 窗 体 】 按 钮 ， 或 者 直接 按 F5 键 ， 执 行 模块 1 中 
的 代码 ， 执 行 之 后 可 以 看 到 C2 至 C21 表格 中 是 待 排序 的 一 个 随机 数组 ，D2 至 D21 表格 中 则 存 
储 了 排序 之 后 的 结果 ， 如 图 6-20 所 示 。 


106 
3 
16 
16 
15 
100 
lo 
399 
2 
6 
2 
EE 
301 
9 
90 
01 
Eg 
160 
163 
7 


图 6-20 对 随机 数组 进行 排序 
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6.7 
高 手 私房 菜 


本 章 主要 介绍 了 Excel 2010 VBA 中 数组 的 相关 内 容 , 包括 如 何 声 明 一 维和 多 维 数 组 ， 如 
何 初始 化 数组 ， 如 何 创建 动态 数组 和 操作 数组 函数 。 下 面 继续 来 解答 一 些 常见 的 疑惑 。 


技巧 1: 数组 元 素 的 序号 规则 

数组 元 素 的 序号 是 从 0 开始 , 数组 下 界 是 从 0 还 是 从 1 开始 是 根据 Option Base 语句 设置 
的 ， 如 果 没 有 指定 Option Base 为 1， 则 数组 下 界 默认 从 0 开始 。 
技巧 2: 清除 数组 需 注意 


使 用 Erase 语句 可 以 轻松 清除 数组 ， 重 新 初始 化 固定 的 数组 的 元 素 ， 以 及 释放 动态 数组 
的 存储 空间 。 清 除数 组 时 需 注意 ， 只 能 给 出 数组 名 ， 不 能 带 括号 和 下 标 。 
例如 ，Erase dymArray () 是 错误 的 写法 。 


技巧 3: 利用 Array 函数 为 数组 赋值 


Array 函数 可 以 为 数组 赋值 ， 但 是 Array 函数 返回 值 是 Variant 类 型 ， 所 以 在 使 用 Array 
函数 给 数组 变量 赋 初 值 之 前 ,定义 数组 时 只 能 将 其 定义 为 Variant 类 型 ， 且 不 能 设置 下 标 ， 和 否 
则 将 显示 “不 能 给 数组 赋值 ”的 错误 信息 。 
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第 7 章 ”使 用 过 程 


过 程 是 VBA 中 的 基本 程序 功能 单元 ,VBA 应 用 程序 就 是 由 许 许 多 多 个 过 程 组 成 的 ,Excel 
VBA 中 的 过 程 分 为 通用 过 程 和 事件 过 程 。 通 用 过 程 又 可 以 分 为 两 种 类 型 ， 一 种 是 Sub 过 程 ; 
-种 是 Function 过 程 ， 也 就 是 自 定义 函数 。 本 章 将 主要 介绍 如 何在 VBA 定义 和 调用 过 程 。 


El 
过 程 的 相关 概念 


在 模块 内 的 代码 会 被 组 织 成 过 程 ， 而 过 程 会 告诉 应 用 程序 如 何 去 执 行 一 个 特定 的 任务 ， 
利用 过 程 可 将 复杂 的 代码 细 分 成 许多 部 分 ， 以 便 管 理 。VBA 中 的 主要 任务 就 是 编写 过 程 ， 除 
了 系统 提供 的 事件 过 程 和 内 部 函数 过 程 外 ， 用 户 可 以 自 定义 下 面 四 种 过 程 


@ Sub 子 过 程 

@ Function 函数 过 程 
@ Property 属性 过 程 
@ Event 事件 过 程 


使 用 过 程 可 以 简化 复杂 程序 的 执行 过 程 ， 提 高 编写 代码 的 效率 ， 便 于 调试 和 维护 。 


YE 
定义 Sub 过 程 


定义 Sub 过 程 有 两 种 方式 ， 一 种 是 使 用 对 话 框 定义 子 过 程 ， 另 一 种 是 在 模块 中 直接 输入 
代码 。 


三 到 使 用 对 话 框 定义 子 过 程 


使 用 对 话 框 定义 子 过 程 就 是 提供 了 一 个 定义 子 过 程 的 向 导 模 板 ， 用 户 在 定义 时 只 用 指定 
子 过 程 的 名 称 、 类 型 和 使 用 范围 ， 就 可 以 生产 一 个 子 过 程 的 模板 代码 。 


【 例 7.1】 使 用 对 话 框 定义 子 过 程 ， 操 作 过 程 如 下 。 

@ 遇 在 VBE 环境 中 首先 选择 【插入 】> 【模块 】 菜 单 命令 ， 新 建 一 个 模块 。 

@ 到 再 次 选择 系统 菜单 中 的 【插入 】> 【过 程 】 菜 单 命令 ， 打 开 【 添 加 过 程 】 对 话 框 ， 在 3 
中 可 以 设 定 过 程 的 名 称 ， 如 图 7-1 所 示 。 


名 称 串 : [Testsubl 


-类 型 
人 子 程序 G) EM 
个 函数 他 
个 属性 所) 


范围 
人 公共 的 @@) 
个 私有 的 中 


厂 把 所 有 局 部 变量 声明 为 静态 变量 以) 


图 7-1 【添加 过 程 】 对 话 框 一 一 子 程序 

【添加 过 程 】 对 话 框 中 的 主要 参数 含义 如 下 : 

@ 【类 型 】〗】 选 项 框 : 可 以 选 定 该 过 程 的 类 型 ， 包 括 子 程序 、 函 数 和 属性 。 
@ 【范围 〗】 选 项 框 : 可 以 选择 过 程 的 有 效 范 围 。【 公 共 的 〗】 表 示 创 建 的 过 程 在 全 局 各 个 模块 中 都 

可 以 调用 ， 在 过 程 定义 代码 中 将 添加 Public 关键 字 ; 【私有 的 〗 表 示 过 程 只 能 在 局 部 使 用 。 
@ 【把 所 有 局 部 变量 声明 为 静态 变量 〗 复 选 框 : 选中 该 选项 ， 将 在 过 程 名 称 前 面 添加 Static 关键 字 。 
@ 遇 设置 完 各 个 参数 之 后 ， 单 击 【 确 定 】 按 钮 ，VBA 将 在 模块 窗口 中 自动 生成 过 程 的 结构 
代码 ， 如 图 7-2 所 示 。 


新 建 Wicrosoft Excel 工 ... 攻 ] 扣 | 圆 
| 通用 ) 了 | [TestSubl 
Public Sub TestSubl 0 


End Sub 


图 7-2 ”生成 子 过 程 结构 代码 


【提示 】〗 每 个 Sub 过 程 都 必须 有 一 个 End Sub 语句 ，End Sub 表示 当 程序 执行 到 这 里 就 结束 该 过 程 的 运 
行 。 不 过 ， 可 以 使 用 Exit Sub 语句 结束 跳出 过 程 的 执行 。Sub 过 程 的 结构 已 经 搭建 好 了 ， 下 面 可 以 向 
过 程 中 添加 代码 了 。 


@ 遇 在 该 过 程 结构 中 插入 以 下 代码 ,打印 输出 九 九 乘法 表 。 
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Wh 


[ETA 入 门 与 实战 


Public Sub TestSubl () 
Dim i As Integer 
Dim j As Integer 
"通过 循环 的 工 套 实现 九 九 乘法 表 
FOR WO 
For 本 二 01 To 
Debug,Print Tabft( 了 二 1) * 9 Di Xe tj 
Next j 
Next i 
End Sub 


@ 到 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 打 印 输出 数组 中 元 素 的 值 ， 结 果 显 示 


在 【立即 窗口 】 中 ， 如 图 7-3 所 示 。 


3X3=9 
4X3=12 
5X3=15 


6X3=18 6X6=36 

了 X3=21 = = TX6=42 TX7=49 

BX3=24 8X6=48 8X7=56 8X8=64 
9X3=27 9X4=36 9X5=45 9X6=54 9X7=63 9X8=72 9X9=81 


7-3” 九 九 乘法 表 


使 用 代码 创建 Sub 过 程 


用 户 不 仅 可 以 使 用 对 话 框 来 创建 Sub 过 程 的 框架 ， 还 可 以 直接 手动 输入 代码 来 创建 ， 对 


于 初学 者 来 说 ， 这 样 可 以 了 解 到 VBA 到 底 做 了 些 什 么 ， 并 且 可 以 加 深 对 创建 Sub 过 程 的 理 


解 。 创 建 Sub 过 程 的 语法 结构 如 下 : 
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[Private | Public | Friend] [Static] Sub < 过 程 名 称 > [ (参数 列表 ) ] 
[语句 段 ] 

[Exit Sub] 

[语句 段 ] 

End Sub 


® Public 是 可 选 参数 ， 表 示 所 有 模块 的 所 有 其 他 过 程 都 可 访问 这 个 Sub 过 程 。 如 果 在 包含 
Option Private 的 模块 中 使 用 ， 则 这 个 过 程 在 该 工程 外 是 不 可 使 用 的 。 

日 Private 是 可 选 参数 ， 表 示 只 有 在 包含 其 声明 的 模块 中 的 其 他 过 程 可 以 访问 该 Sub 过 程 。 

@ Friend 是 可 选 参数 ， 只 能 在 类 模块 中 使 用 。 表 示 该 Sub 过 程 在 整个 工程 中 都 是 可 见 的 , 但 对 于 
对 象 实例 的 控制 者 是 不 可 见 的 。 

@ Static 是 可 选 参数 ,表示 在 调用 期 间 保留 Sub 过 程 的 局 部 变量 的 值 。Static 属性 对 在 Sub 外 声 
明 的 变量 不 会 产生 影响 ， 即 使 过 程 中 也 使 用 了 这 些 变量 。 

日 < 过 程 名 称 > 指定 Sub 的 名 称 。 

@ [ (参数 列表 ) ] 是 可 选 的 ， 是 指 在 调用 时 要 传递 给 Sub 过 程 的 参数 的 变量 列表 ， 多 个 变量 则 用 
逗号 隔 开 。 


@ [语句 段 ] 中 包含 Sub 过 程 中 所 执行 的 任何 语句 组 。 


下 面 看 一 下 如 何 手动 地 在 代码 窗口 中 创建 Sub 过 程 。 

【 例 7.2】 手 动 创建 Sub 过 程 ， 操 作 过 程 如 下 : 

@ 曲 在 VBE 环境 中 首先 选择 【插入 】> 【模块 】 菜 单 命令 , 新 建 一 个 模块 或 者 直接 双击 【 工 
程 资源 管理 器 】 窗 口中 的 某 一 个 模块 ， 打 开 代码 窗口 。 

@g 在 代码 窗口 中 输入 Sub Testsub2 语句 ， 然 后 按 回 车 键 ， 系 统 将 自动 添加 后 面 的 括号 入 
End Sub 语句 ， 结 果 如 图 7-4 所 示 。 


图 7-4 手动 创建 子 过 程 结构 代码 
@gj 至 此 ， 就 完成 了 手动 创建 Sub 过 程 的 操作 . 


Function 是 VBA 中 的 另 一 种 通用 过 程 类 型 ， 可 以 将 其 称 为 函数 。Function 过 程 的 定义 与 
Sub 过 程 的 定义 有 相同 点 和 不 同 点 。 但 是 Function 过 程 可 以 在 程序 调用 时 直接 返回 一 个 值 。 
本 节 将 介绍 如 何 定义 Function 过 程 。 


大 到 使 用 对 话 框 定 义 函 数 过 程 


创建 函数 也 有 两 种 方法 : 使 用 对 话 框 定义 函数 或 者 手动 输入 代码 , 这 两 种 方法 与 创建 Sub 
过 程 的 操作 步骤 基本 一 样 。 
【 例 7.3】 使 用 对 话 框 定义 函数 ， 操 作 过 程 如 下 : 


@ 册 在 VBE 环境 中 首先 选择 【插入 】> 【模块 】 菜 单 命令 , 新 建 一 个 模块 或 者 直接 双击 【 工 
程 资源 管理 器 】 窗 口中 的 某 一 个 模块 ， 打 开 代码 窗口 。 

@ 到 再 次 选择 系统 菜单 中 的 【插入 】> 【过 程 】 菜 单 命令 ,打开 【添加 过 程 】 对 话 框 , 在 
中 选中 【函数 】 单 选 按钮 ， 如 图 7-5 所 示 。 

@ 旨 设置 完 各 个 参数 之 后 ， 单 击 【 确 定 】 按 钮 ，VBA 将 在 模块 窗口 中 自动 生成 Function 过 
程 的 结构 代码 ， 如 图 7-6 所 示 。 
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Wf 


EIR 入门 与 实战 


添加 过 程 加 


入 fee 新 建 Hicrosoft Excel 工作 表 .…. 周 | 司 | 国 
ET J 
su 了 ] [TestFunctionl 可 
广 子 程序 @) BE 一 
人 函数 四 Pi Tection rsmmeuiml0 
六 尾 性 双 ) End Function 
范围 


人 公共 的 四 
个 私有 的 中 


厂 把 所 有 局 部 变量 声明 为 静 老 变量 A) 


图 7-5 【添加 过 程 】 对 话 框 一 一 函数 7-6 ”生成 函数 结构 代码 


使 用 代码 创建 Function 过 程 


同样 用 户 可 以 手动 添加 创建 Function 的 代码 ， 创 建 Function 过 程 的 基本 语法 结构 如 下 : 


[Public | Private | Friend] [Static] < 函数 名 称 > [ (参数 列表 ) ] [Rs 数据 类 型 ] 

[语句 段 ] 

[函数 名 称 = 表达 式 1] 

[Exit Function] 

[语句 段 ] 

[函数 名 称 = 表达 式 2] 

End Function 

@ Public 是 可 选 参数 , 表示 所 有 模块 的 所 有 其 他 过 程 都 可 访问 这 个 Function 过 程 。 如 果 是 在 包含 
Option Private 的 模块 中 使 用 ， 则 这 个 过 程 在 该 工程 外 是 不 可 使 用 的 。 

@ Private 是 可 选 参数 ， 表 示 只 有 包含 其 声明 的 模块 的 其 他 过 程 可 以 访问 该 Function 过 程 。 

@ Friend 是 可 选 参数 ， 只 能 在 类 模块 中 使 用 。 表 示 该 Function 过 程 在 整个 工程 中 都 是 可 见 的 , 但 
对 于 对 象 实例 的 控制 者 是 不 可 见 的 。 

@ Static 是 可 选 参数 ， 表 示 在 调用 期 间 将 保留 Function 过 程 的 局 部 变量 值 。Static 属性 对 在 该 
Function 外 声明 的 变量 不 会 产生 影响 ， 即 使 过 程 中 也 使 用 了 这 些 变量 。 

@ < 函数 名 称 > 指 定 Function 过 程 的 名 称 。 

@ (参数 列表 ) 是 可 选 参数 ， 是 在 调用 时 要 传递 给 Function 过 程 的 参数 变量 列表 。 多 个 变量 应 
用 逗号 隔 开 。 

@ “数据 类 型 ”表示 Function 过 程 的 返回 值 的 数据 类 型 , 可 以 是 Byte、 Boolean 、Integer、 Long、 
Currency、Single、Double、Decimal (目前 尚 不 支持 )、Date、String ( 除 定 长 )、Object、Variant 
或 任何 用 户 定义 类 型 。 

® [语句 段 ] 中 包含 Function 过 程 中 执行 的 任何 语句 组 。 

@ 表达 式 是 可 选 参数 ， 指 定 Function 的 返回 值 。 


比较 Function 过 程 和 Sub 过 程 的 定义 语法 可 以 看 到 , 两 个 过 程 的 结构 很 相似 , 但 是 与 Sub 


过 程 不 同 ，Function 过 程 又 有 其 自身 的 特点 : 


(1) 在 函数 第 一 行 的 声明 语句 中 ， 使 用 “As 数据 类 型 ”定义 函数 的 返回 值 类 型 。 

(2) 在 函数 体内 ， 通 过 给 函数 名 赋值 来 指定 函数 的 返回 值 。 

如 果 函 数 体内 没有 “[ 函 数 名 称 = 表达 式 1] ”这样 的 语句 ， 函 数 将 返回 一 个 默认 值 0， 
如 果 返 回 数据 类 型 是 字符 串 ， 则 返回 一 个 空 字符 串 。 

【 例 7.4】 手 动 在 代码 窗口 中 创建 Sub 过 程 ， 操 作 过 程 如 下 : 


I@ 册 在 VBE 环境 中 首先 选择 【插入 】> 【模块 】 菜 单 命令 , 新 建 一 个 模块 或 者 直接 双击 【 工 
程 资源 管理 器 】 窗 口中 的 某 一 个 模块 ， 打 开 代码 窗口 。 

@g 双 代码 窗口 中 输入 Function testFunction2 语句 ， 然 后 按 回 车 键 ， 系 统 将 自动 添加 后 面 的 括 
号 和 End Function 语句 ， 然 后 为 该 函数 添加 两 个 参数 和 返回 数据 类 型 ， 代 码 如 下 : 


Function testFunction2 (numl As Double, num2 As Double) As Double 
testFunction2 = numl * num2 
End Function 


修改 之 后 testFunction2 的 定义 结果 如 图 7-7 所 示 。 


新建 Hicrosoft Excel 工作 表 .xlsx - 模块 2 (... 加 回回 
了 | |testFunction2 


Function testFunction2 (numl As Double, num2 As Double) As Double 


testFunction2 = muml * num2 
End Function 


图 7-7 手动 创建 Function 过 程 结构 代码 


过 程 是 用 来 完成 某 一 特定 功能 的 代码 模块 ， 程 序 中 可 能 包含 许多 这 样 的 过 程 ， 只 有 将 这 
些 过 程 组 合 在 一 起 才 可 以 实现 更 大 的 功能 。 


区 调用 Sub 过 程 

在 VBA 中 ，Sub 过 程 的 调用 分 两 种 形式 ， 一 种 是 在 VBA 代码 中 直接 调用 ， 另 一 种 是 在 
Excel 中 通过 调用 宏 的 方式 来 执行 Sub 过 程 。 
1. 在 VBA 代码 中 调用 

使 用 代码 调用 过 程 又 可 以 分 为 两 种 方法 。 
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(1) Call 语句 调用 ， 语 法 格式 如 下 : 
Call 过 程 名 称 [〈 实 际 参数 ) ] 


(2) 直接 使 用 过 程 名 调用 ， 即 将 过 程 当做 一 个 语句 。 
【 例 7.5】 调 用 过 程 TestSub1， 操 作 过 程 如 下 。 


@ 册 创建 TestSubl 过 程 。 
@ 到 模块 代码 窗口 中 输入 如 下 语句 ， 如 图 7-8 所 示 . 
Sub main() 


Debug.Print "使 用 Call 语句 调用 " 
Call TestSubl 


Debug. Print 


Debug.Print "直接 调用 " 
TestSubl 
End Sub 


tQ3j 单 击 工 


所 示 。 


新 建 Micro 


[ 具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按钮 ， 结 果 输 出 在 【立即 窗口 】 中 ， 如 图 7-9 


oft Excel 工作 表 .xlsa... 攻关 | 属 


ing 
Tabug_Print “使 用 call 语句 调用 ” 
Call TestSubl 


Debug Print 
Debug Print “直接 调用 
Tt 


py 


Public i ei o 
ie 
es 二 
Topor 
he Fat ratG - 1 ia"x"a 


et 
Mext i 


nd Sub 


唱 


图 7-8 调用 过 程 图 7-9 调用 过 程 执行 结果 


尺 宏 方式 调用 Sub 过 程 

在 创建 一 个 Sub 过 程 之 后 ， 可 以 在 Excel 工作 簿 中 ， 选 择 “ 录 制 宏 ” 命 令 ， 将 Sub 过 程 
作为 一 个 宏 来 调用 。 

【 例 7.6】 在 Excel 工作 秒表 单 中 调用 TestSub1 过 程 ， 操 作 过 程 如 下 。 


国运 加 
(02 在 表 


TestSub1l ， 
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Excel 工作 短 . 


EE 中 插入 一 个 按钮 控件 ， 打 开 【 指 定 宏 】 对 话 框 ， 在 【指定 宏 】 对 话 框 中 选择 宏 


图 


7-10 所 示 。 


图 7-10 指定 宏 对 话 框 
@ 旨 单 击 【 确 定 】 按 钮 ， 即 可 完成 宏 与 插入 按钮 的 绑 定 。 
{@ 约 单 击 Excel 表单 中 的 按钮 ， 之 后 返回 VBE， 可 以 在 【立即 窗口 〗 中 看 到 执行 的 结果 ， 执 
行 结果 与 图 7-9 所 示 相 同 。 


调用 Function 过 程 


Function 过 程 的 调用 与 Sub 过 程 的 调用 相同 ， 可 以 在 VBA 代码 中 使 用 Call 语句 调用 或 
者 直接 调用 ， 也 可 以 在 Excel 工作 表 中 调用 。 


1. 在 VBA 代码 中 调用 
【 例 7.7】 调 用 函数 testFunction2， 操 作 过 程 如 下 。 


@ 灿 创建 testFunction2 过 程 。 
@g 汉 在 模块 代码 窗口 中 输入 如 下 语句 ， 如 图 7-11 所 示 。 


Sub Main() 

Dim numl As Double, num2 As Double 

Dim numSum As Double 

numl = InputBox ("请 输入 第 1 个 值 ") 

num2 = InputBox ("请 输入 第 2 个 值 ") 

numSum = testFunction2 (numl, num2) 

MsgBox numl & " 乘 以 " & num2 & "的 结果 是 : " & numSum 
End Sub 


@ 旨 单 击 工 具 栏 中 的 【运行 子 过程 / 用 户 窗 体 】 按 钮 ， 系 统 弹出 两 个 输入 窗口 ， 这 里 用 户 输 
入 两 个 数值 ,然后 函数 testFunction2 将 返回 两 个 数 的 乘积 结果 。 例如 , 这 里 输入 值 12.3 和 10, 返 
本 结果 如 图 7-12 所 示 。 
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ETA 入 门 与 实战 


通用) 了 | 本 
Sub MainO 


Ial 


Hicrosoft Ezcel 辆 | 


12. 3 乘 以 10 的 结果 是 : 123 


Function testPunctien2 (nunl As Double, num2 As Double) As Double 
testhunction? = nunl # mun2 
nd Funetion = 
= 后 4 


图 7-11 调用 testFunction2 函数 


图 7-12 调用 函数 结果 
2. 在 Excel 工作 表 中 调用 


自 定义 的 Function 可 以 和 系统 内 置 函数 一 样 ， 在 Excel 工作 表 中 进行 调用 。 如 果 不 知道 


用 户 自 定义 的 Function 过 程 的 名 称 或 参数 ， 可 以 使 用 【插入 函数 】 对 话 框 帮助 用 户 向 工作 表 
中 输入 这 些 函数 。 看 下 面 的 例题 。 


【 例 7.8】 在 Excel 工作 表 中 调用 函数 testFunction2， 操 作 过 程 如 下 。 
@ 灿 返回 


Excel 表单 窗口 ， 使 用 鼠标 选择 一 个 单元 格 。 


@g 在 【公式 】 选 项 卡 的 【函数 库 】 中 ， 单 击 【 插 入 函数 】 按 钮 ,打开 【插入 函数 】 对 话 框 ， 
在 【或 选择 类 别 】 下 拉 列 表 中 选择 【用 户 定义 】 选 项 ， 下 面 的 函数 列表 中 将 显示 已 有 的 自 定义 函 
数 ， 如 图 7-13 所 示 。 

@g 在 图 7-13 所 示 的 对 话 框 中 ， 单 击 选择 一 个 自 定义 函数 ， 单 击 【 确 定 】 按 钮 ， 打 开 【 函 
数 参 数 】 对 话 框 ， 在 该 对 话 框 中 可 以 输入 函数 所 需要 的 参数 ， 如 图 7-14 所 示 。 


折 入 函 救 


搜索 函数 E) 
ss + 然后 单 击 “ 转 到 ” 


观光 择业 别人 ) 用 户 定义 
过 所 函数 们 


testEunetion2 Goanl nun2) 
没有 帮助 信息 


图 7-13 【插入 函数 】 对 话 框 


图 7-14 设 定 函 数 参数 
@ 绩 输入 完 参数 后 ， 生 


击 【 确 定 】 按 钮 ， 完 成 公式 的 输入 ， 在 Excel 表单 r 


h 所 选择 的 单元 格 
里 可 以 看 到 函数 返回 的 结果 ， 如 图 7-15 所 示 。 
D1 -€ | =testFunction2(15.6,100) 
| B c= = E F 
1560| 
2 


图 7-15 调用 Function 过 程 结果 


YA 
过 程 的 参数 传递 


过 程 的 参数 传递 将 需要 处 理 的 数据 交 给 过 程 ， 因 为 添加 了 参数 ， 这 样 就 增加 了 过 程 的 通 
用 性 。 在 VBA 中 有 以 下 一 些 在 过 程 中 传递 参数 的 方式 ， 形 参 和 实 参 的 结合 、 按 值 方式 传递 、 
按 址 方式 传递 和 传递 数组 参数 。 


三 汪 形 参与 实 参 的 结合 


形 参 是 过 程 在 定义 时 出 现 的 参数 名 称 ， 没 有 具体 的 值 ， 例 如 testFunction2 过 程 中 : 
Function testFunction2 (numl As Double, num2 As Double) As Double 
testFunction2 = numl * num2 

End Function 

这 里 numl 和 num2 就 是 形式 参数 , 在 真正 调用 之 前 , 不 知道 这 两 个 变量 里 保存 的 值 是 什么 。 

实 参 是 实际 调用 时 ， 传 递 给 过 程 的 参数 的 具体 值 ， 这 些 具体 的 值 可 以 是 常量 、 变 量 或 者 
数组 等 。 

VBA 中 ， 形 参与 实 参 结合 时 有 两 种 方式 : 按 位 置 结合 和 按 参 数 名 称 结合 。 
1. 按 位 置 结合 

这 种 结合 方式 表示 在 调用 过 程 时 ， 传 递 的 参数 的 顺序 必须 与 定义 过 程 时 参数 的 顺序 完全 
相同 。 

【 例 7.9】 使 用 位 置 结合 的 方式 调用 带 参数 的 Sub 过 程 ， 操 作 过 程 如 下 。 

@ 角 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 

罗 到 在 模块 中 输入 以 下 代码 ， 如 图 7-16 所 示 。 


Sub Main() 
computeVolume 3，4，5， "长 方 体 " 
End Sub 


Public Sub computeVolume (length As Double, _ 
width Rs Double, _ 
height As Double, _ 
name As String) 

Dim volume As Double 

volume = length * width * height 

Debug.Print name & "的 体积 是 : " & volume 
End Sub 


L 国 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 ] 按钮 . 结果 输出 在 【立即 窗口 】 中 ,如 图 7-17 所 示 。 


Wh 


图 7-16 按 位 置 结合 方式 调用 过 程 7-17 调用 computeVolume 的 结果 


【提示 】〗 由 模块 中 的 代码 可 以 看 到 ,这 里 在 调用 computeVolume 时 ,传递 的 三 个 参数 的 类 型 必须 与 过 程 
定义 时 的 顺序 相同 ， 在 Main 过 程 中 调用 computeVolume 时 ，3 赋值 给 length，4 赋值 给 width，5 赋值 
给 height,“ 长 方 体 "赋值 给 name 参数 。 
2. 按 参 数 名 称 结合 

使 用 按 参 数 名 称 结合 的 方式 调用 时 ， 输 入 形 参 的 名 称 ， 将 形 参 的 名 称 与 实 参 用 “:=” 符 
号 连接 起 来 ， 另 外 ， 使 用 参数 名 称 结合 时 不 需要 按照 过 程 定义 时 的 顺序 给 出 参数 ， 参 数位 置 
可 以 随意 放置 。 


同 ， 
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【 例 7.10】 使 用 参数 名 称 结合 的 方式 调用 带 参 数 的 Sub 过 程 ， 操 作 过 程 如 下 : 


@ 曙 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
@g 在 模块 中 输入 以 下 代码 ， 如 图 7-18 所 示 。 


Sub Main() 
computeVolume height:=5，1length:=3，name:=" 长 方 体 "，width:=4 


End Sub 


Public Sub computeVolume (length Rs Double, 
width As Double, 
height Rs Double, _ 
name As String) 
Dim volume As Double 
volume = length * width * height 
Debug.Print name & "的 体积 是 : " & volume 
End Sub 


@ 介 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 这 里 的 结果 和 上 一 个 例题 
如 图 7-17 所 示 。 


的 完全 相 


新 建 Hicrosoft Ezcel 工作 表 .xzlsa - 模块 !《..- 攻占] 贺 


了 | [computeYolune 


Sub NainO 
computeVolune height:=5, length:=3，nane;=" 长 方 体 "，width:=4 
End Sub 


Public Sub computeYolune Qength As Double, _ 
wid 


th As Double, 
height As Double, 一 
nane As String) 
Din volune As Double 
volune = length * width *# height 
aa De Print nne "的 体积 是 : “ & volune 


7-18 使 用 参数 名 结合 方式 调用 带 参数 的 子 过 程 


这 两 种 方法 实现 了 相同 的 效果 ， 虽 然 第 二 种 按 名 称 传递 参数 时 需要 指定 形 参 的 名 称 ， 但 
是 使 用 这 种 方式 将 增强 程序 的 可 读 性 ， 降 低 程序 出 错 的 可 能 性 。 


交加 按 传 值 方式 传递 参数 


以 传 值 的 方式 调用 过 程 时 ， 传 递 给 过 程 的 实际 是 值 的 一 个 副本 ， 定 义 过 程 时 ， 在 需要 传 
值 的 变量 前 面 添加 ByVal 关键 字 ， 则 该 参数 就 按照 传 值 的 方式 传递 到 过 程 中 。 因 为 传递 的 是 
-个 变量 的 副本 ,所 以 在 过 程 中 对 参数 的 任何 变动 都 不 会 影响 到 外 部 调用 程序 中 的 变量 的 值 。 
这 与 下 一 小 节 将 要 介绍 的 传 址 的 方式 不 同 。 
【 例 7.11】 使 用 按 值 传递 的 方式 调用 过 程 ， 操 作 过 程 如 下 : 


@ 凤 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 
@ 到 在 模块 中 输入 以 下 代码 ， 如 图 7-19 所 示 。 


Sub Main() 
Dim x As Integer 
x= 25 
Debug .Print " 主 过 程 中 变量 x 
testValue x 
Debug .Print " 主 过 程 中 变量 x 
End Sub 


hl 
3 
% 


3 


Public Sub testValue (ByVal x Rs Integer) 
| 


Debug.Print " 子 过 程 中 变量 x = " & x 


End Sub 
L 团 ) 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ,结果 输 出 在 【立即 窗口 】 中 , 如 图 7-20 
所 示 。 
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新 建 icrosoft Ezcel 工作 --- 基因 | 圆 


(通用 ) 了 | lmain 了 


Sub NainO 
Tim x As Integer 


x = 
Debug Print“ 主 过 程 中 变量 x = ” & x 
testValue x 
Debug. Print“ 主 过 程 中 变量 x =“ & x 

End Sub 


Publie Sub testyalue (Byyal x As Integer) 
x=x+ 
Debug Print“ 子 过 程 中 变量 x = “ & x 


End Sub 加 
可 


图 7-19 按 值 传递 方式 调用 过 程 


图 7-20 ”testValue 调用 结果 


由 图 7-20 打印 输出 的 结果 可 以 看 到 ， 在 调用 传 值 过 程 前 x 变量 的 值 是 25， 在 testValue 
过 程 中 对 x 变量 进行 了 修改 ， 打 印 结果 为 35， 但 是 返回 到 Main 过 程 中 之 后 ，x 的 值 并 没有 
真 的 改变 ， 仍 然 是 25， 这 样 就 保证 了 子 过 程 不 能 随意 修改 调用 程序 中 的 变量 。 


[ae 按 传 地 址 方式 传递 参数 


在 VBA 中 另 一 种 传递 实 参 的 方法 是 传 地 址 ， 即 传递 变量 在 内 存 中 的 地 址 ， 而 不 是 变量 
本 身 的 值 ， 定 义 过 程 时 ， 在 需要 传 值 的 变量 前 面 添加 ByRef 关键 字 。 传 地 址 是 VBA 中 默认 
的 方式 ， 在 定义 过 程 时 ， 如 果 没 有 在 形 参 前 面 添加 ByVal 或 ByRef， 则 默认 都 是 通过 传 地 址 
方式 传递 。 因 为 传递 的 是 实 参 的 地 址 ， 所 以 原 调用 过 程 可 以 看 到 被 修改 的 实 参 的 值 。 

【 例 7.12】 使 用 按 地 址 传递 的 方式 调用 过 程 ， 操 作 过 程 如 下 : 


@ 贡 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 


@ 芭 在 模块 中 输入 以 下 代码 ， 如 图 7-21 所 示 。 


Sub Main( 
Dim x 


) 
As Integer 


x= 25 


Debug. 


Print " 主 过 程 中 变量 x = " & x 


testRef x 


Debug. 
End Sub 


Public Sub testRef (ByRef x As Integer) 


居于 
Debug . 
End Sub 


了 Print " 主 过 程 中 变量 x = " & x 


二 
了 Print " 子 过 程 中 变量 x = " & x 


03) 单 击 了 


所 示 。 
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[ 具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ， 结果 输出 在 【立即 窗口 】 中 ,如 图 7-22 


Publie Sub testheflByRef x As Integer) 
x 
Debug Print “ 子 过 程 中 变量 zx =“ & x 


图 7-21 按 地 址 传递 调用 过 程 7-22 testRef 过 程 调用 结果 


由 打印 输出 的 结果 可 以 看 到 , 在 调用 传 址 过 程 前 x 变量 的 值 是 25, 在 testRef 过 程 中 对 x 
变量 进行 了 修改 , 打印 结果 为 35, 返回 到 Main 过 程 中 之 后 ， 因 为 形 参 中 的 x 和 Main 过 程 中 
传递 给 testRef 过 程 的 实 参 x 指向 同一 块 内 存单 元 , 所 以 返回 调用 过 程 后 , 实 参 x 的 值 也 发 生 
了 变化 。 

【技巧 】Sub 过 程 不 能 返回 运算 结果 ,但 是 如 果 需 要 Sub 过 程 返回 值 ， 可 以 使 用 ByRef 方式 定义 形 参 就 
可 以 将 子 过 程 的 运算 数据 返回 到 调用 程序 中 。 

【提示 】〗 程 序 中 使 用 传 地 址 比 传 值 效 率 高 ， 但 是 传 地 址 方式 中 的 形 参 并 不 是 一 个 真正 的 局 部 变量 ， 有 可 
能 对 程序 产生 不 必要 的 影响 。 如 果 没 有 特殊 要 求 ， 应 尽量 使 用 传 值 方式 。 


7.54 传递 数组 参数 


除了 上 面 的 两 种 传递 参数 的 方法 之 外 ，VBA 中 还 允许 将 数组 作为 参数 传递 到 过 程 中 。 在 
定义 过 程 时 ， 数 组 作为 形 参 出 现在 参数 列表 中 ， 形 参数 组 只 能 按 地 址 传递 参数 ， 对 应 的 实 参 
也 必须 是 数组 ， 且 数据 类 型 相同 。 调 用 过 程 时 ， 把 要 传递 的 数组 名 放 在 实 参 表 中 ， 数 组 名 后 
面 不 跟 圆 括号 。 在 过 程 中 不 可 以 用 Dim 语句 对 形 参数 组 进行 声明 ， 和 否则 会 产生 “重复 声明 ” 
的 错误 。 

在 使 用 传递 数组 参数 时 要 注意 以 下 几 点 。 


(1) 因为 数组 是 内 存 中 的 一 片 连续 区 域 ， 数 组 参数 只 能 按 地 址 传递 。 

(2) 在 声明 数组 为 形 参 时 ， 必 须要 包含 括号 ， 以 便 与 一 般 变 量 区 分 , 但 可 以 不 声明 大 小 。 

(3) 在 实 参 和 形 参 中 不 需要 说 明 数 组 的 维 数 。 

(4) 在 遍历 数组 中 的 元 素 时 ， 可 以 使 用 LBound 和 UBound 函数 获取 数组 的 上 界 和 下 界 。 

(5) 因为 是 按 地 址 传递 ， 所 以 过 程 中 对 形 参 数组 元 素 的 改变 ， 将 最 终 改 变调 用 过 程 中 实 
参数 组 中 相应 元 素 的 值 。 


【 例 7.13】 使 用 过 程 求 出 指定 数组 中 的 最 小 值 ， 操 作 过 程 如 下 : 


@ 册 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 。 
@ 到 在 模块 中 输入 以 下 代码 ， 如 图 7-23 所 示 . 


Sub Main() 
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Dim myRArray(1 To 10) As Integer 
"向 数组 中 插入 10 个 0~100 之 间 的 随机 数 
For idx = 1 To 10 
myArray (idx) = Rnd * 100 
Debug.Print myArray (idx); 
Next 
Debug .Print ' 打 印 一 个 空白 行 
Call getMin (myArray) 
End Sub 


Public Sub getMin (myArray() As Integer) 
Dim idx As Integer, min As Integer 
min = myArray (LBound (myArray)) 
For idx = LBound (myArray) To UBound (myArray) 
If myArray (idx) < min Then min = myArray (idx) 
Next idx 


Debug .Print "数组 中 最 小 值 等 于 " & min 
End Sub 


@ 旨 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 ,结果 输出 在 【立即 窗口 】 中 ,如 图 7-24 
所 示 。 


新 建 Wicrosoft Excel 工作 表 .xlsn -... 奈 | 右 | 医 


了 [ein 


0 
于 myArray (1 To 10) As Integer 

fn 壬 Aiofo lo i 
1 eo. 


a idx = 
kr 
i Print We 
De Print“ 打 印 一 个 空白 行 
Ct yk) 
End Sub 
Public Sub getllin (ayArray O As Integer) 
ee 
eae] 77 5 59 47 30 62 65 26 28 
rend oho Upound toyke EE 
myArray (idx) < min Then min = ED Gs) 
er 
Debug, Print“ 数 姐 中 晤 小 值 等 于 ”4 nin 
End Sub 


图 7-23 调用 数组 参数 的 过 程 图 7-24 getMin 过 程 执行 结果 

getMin 过 程 中 传递 了 一 个 整数 类 型 的 数组 ， 首 先 将 数组 中 第 一 个 值 保存 在 min 变量 中 ， 
然后 依次 让 数组 中 每 一 个 值 与 min 值 比较 ， 如 果 数 组 元 素 比 min 小 ， 则 将 其 赋值 给 min， 这 
样 比较 完 之 后 ，min 变量 中 始终 保存 着 数组 中 最 大 的 数 。 


7.6 
可 选 参数 和 可 变 参数 


前 面 介绍 的 Sub 过 程 和 Function 过 程 中 ， 参 数 的 个 数 都 是 固定 的 ， 并 且 在 调用 时 必须 要 
指定 相应 的 实 参 。VBA 中 可 以 根据 需要 设置 可 选 参数 和 可 变 参 数 。 
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可 选 参数 


可 选 参数 即 在 函数 或 过 程 定义 时 的 形 参 是 固定 的 ， 但 在 调用 时 可 以 不 用 指定 某 个 实 参 ， 
如 在 定义 时 有 3 个 实 参 ， 调 用 时 可 以 只 指定 前 2 个 实 参 。VBA 中 使 用 Optional 关键 字 来 设置 
该 形 参 为 可 选 参数 ,在 过 程 内 部 可 以 使 用 ISMissing 函数 来 检测 调用 程序 是 否 传递 了 该 可 选 参 
数 。 定 义 可 选 参数 的 语法 格式 如 下 : 

Sub/Function 过 程 名 称 〔...Optional 变量 名 ) 

【 例 7.14】 定 义 可 选 参 数 ， 使 用 并 判断 是 否 传 递 了 可 选 参数 ， 操 作 过 程 如 下 : 


@ 生 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 . 
加 在 模块 中 输入 以 下 代码 ， 如 图 7-25 所 示 。 


Sub Main() 
optionalPrameterSub " 张 非 "， "三 班 "，90 
Debug.Print 
optionalPrameterSub " 关 余 "，" 三 班 " 
End Sub 
Public Sub optionalPrameterSub (stuName As String, _ 
stuClass As String, _ 
Optional stuScore) 
If IsMissing(stuScore) Then 
Debug.Print "没有 学 生成 绩 ， 请 重新 输入 " & stuName & "的 成 绩 " 
Exit Sub 
End If 
Debug .Print "学 生 信息 : " 
Debug.Print "姓名 : " & stuName 
Debug.Print "班级 : " & stuCclass 
Debug.Print "成 绩 " & stuScore 
End Sub 


@g 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按钮 , 结果 输出 在 【立即 窗口 】 中 , 如 图 7-26 所 示 。 


图 7-25 定义 可 选 参数 过 程 图 7-26 ”optionalPrameterSub 过 程 执行 结果 
该 段 代码 中 定义 过 程 optionalPrameterSub 中 第 3 个 参数 是 一 个 可 选 形 参 ， 在 Main 过 程 
中 ， 调 用 这 个 过 程 时 ， 可 以 提供 三 个 参数 ， 也 可 以 提供 两 个 参数 。 可 以 看 到 使 用 IsMissing 
可 以 判断 是 否 指定 了 第 3 个 参数 。 
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【提示 】 在 过 程 中 可 以 定义 多 个 可 选 参数 ， 但 可 选 参数 必须 放 在 参数 列表 的 最 后 ， 而 且 必 须 是 Variant 
类 型 ， 如 果 可 选 参数 也 指定 了 一 个 数据 类 型 ， 则 IsMissing 函数 将 无 法 对 其 进行 判断 。 


7.6.2 可 变 参 数 


可 选 参 数 表示 是 否 选 择 使 用 , 而 可 变 参数 则 表示 过 程 中 实 参 的 个 数 是 不 确定 的 。 定义 可 变 参 
数 时 ， 在 最 后 一 个 参数 前 面 加 上 ParamArray 关键 字 ， 之 后 过 程 将 可 以 接受 任意 个 数 的 参数 。 
【 例 7.15】 使 用 可 变 参 数 过 程 编写 求 和 函数 ， 操 作 过 程 如 下 。 


团 / 打开 VBE， 依 次 选择 【插入 】> 【模块 】 菜 单 命令 . 
加 在 模块 中 输入 以 下 代码 ， 如 图 7-27 所 示 。 


Sub Main() 
Dim suml As Integer, sum2 As Integer 
getSum suml, 1, 3, 4, 6, 8, 12, 53, 5 
Debug.Print " suml 等 于 :" & suml 
getSum sum2, 2,5,12,12 
Debug.Print " sum2 等 于 :" & sum2 

End Sub 


Public Sub getSum(sum As Integer, ParamArray intNum()) 
For idx = LBound(intNum) To UBound (intNum) 
sum = sum + intNum(idx) 
Next 
End Sub 


@ 昌 单 击 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按钮 ， 结果 输出 在 【立即 窗口 】 中 ,如 图 7-28 
所 示 。 


了 | jsetsm 


inO) 
Din sunl As Integer, sun2 As Integer 


Sub getSun (sun As Int， anhrray intliun 0) 
Po he To Ar) Fe tno Tro) 
= sm + intie lide) 


End Se 


= 后 | 
图 7-27 创建 可 变 参 数 过 程 图 7-28 getSum 过 程 执行 结果 
可 以 看 到 ，getSum 中 定义 两 个 形 参 ， 第 一 个 是 按 地 址 传递 的 形 参 ， 用 于 返回 计算 之 后 的 结 
果 ; 第 二 个 形 参 使 用 ParamArray 将 其 定义 为 可 变 参数 , 可 变 参 数 是 一 个 数组 ,程序 中 使 用 LBound 
和 UBound 函数 获取 数组 的 长 度 ， 然 后 对 数组 中 的 值 进行 累加 ， 最 后 使 用 sum 返回 结果 。 


【提示 】〗ParamArray 关键 字 只 能 用 于 参数 列表 中 的 最 后 一 个 参数 ， 同 时 该 关键 字 不 能 与 ByVal，ByRef 
或 Optional 一 起 使 用 。 
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综合 实战 一 彩票 号 码 生产 代码 


相信 有 很 多 读者 都 买 过 彩票 ， 中 彩票 是 有 一 定 概率 的 ， 这 里 为 读者 介绍 一 段 简短 的 代码 
来 生产 彩票 中 奖 号 码 的， 创建 完 成 之 后 ， 赶 紧 试 试 自己 的 手气 吧 ! 参考 代码 如 下 。 


Public Sub Lottery(lott() As Integer) 
' Dim lott(1 To 10) Rs Integer, i As Integer 
Randomize 
For i=1 To 10 

lott(i) = Int(Rnd() * 10) 
Next i 
'Lottery = lott 

End Sub 

Sub main() 

Dim arr(1 To 10) As Integer 
Lottery arr 
Debug .Print "本 期 的 中 奖 号 码 是 :" 
For T= 1 To 10 

Debug.Print arr(i) & " "7 
Next 


Debug.Print 
End Sub 


7.9 
高 手 私房 菜 


技巧 1: 为 什么 Function 过 程 不 出 现在 宏 对 话 框 中 ? 

与 Sub 过 程 不 同 ， 自 定义 函数 Function 过 程 并 不 出 现在 宏 对 话 框 中 ， 当 执行 VBE 编辑 
器 中 的 【运行 】>【 运 行 子 过 程 /用 户 窗 体 】 命 令 时 ， 如 果 光 标 位 于 某 Function 过 程 中 ， 就 不 
能 获取 宏 对 话 框 并 从 中 选择 要 运行 的 宏 。 因 此 ， 在 开发 过 程 的 时 候 ， 必 须 采 取 其 他 方式 对 自 
定义 函数 进行 测试 ， 可 以 设置 调用 该 函数 的 过 程 ， 如 果 该 函数 是 用 在 工作 表 公 式 中 的 ， 可 以 
在 工作 表 中 输入 简单 的 公式 进行 测试 。 
技巧 2: 指定 为 ParamArray 的 参数 的 数据 类 型 必须 相同 吗 ? 

ParamArray 参数 的 每 个 参数 可 以 是 不 同 的 数据 类 型 。 然 而 ， 参 数 本 身 必须 声明 为 一 个 
Variant 类 型 的 数组 。 可 以 提供 任何 数量 的 参数 给 ParamArray。 当 调用 发 生 时 ， 调 用 所 提供 
的 每 个 参数 ， 都 会 变 成 Variant 数组 中 一 个 相对 应 的 元 素 。 
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第 8 章 ”Excel 工作 簿 相关 操作 


通过 本 章 的 学 习 ， 可 以 使 读者 了 解 工作 簿 的 操作 方法 和 属性 ， 实 现 Excel 工作 短 对 象 的 
新 建 、 打 开 、 保 存 及 关闭 等 操作 。 如 新 建 仅 包含 一 张 工 作 表 的 工作 短 、 新 建 工 作 短 到 指定 位 
置 、 判 断 一 个 工作 簿 是 否 已 打开 、 保 存 对 工作 簿 的 更 改 、 关 闭 并 保存 所 有 工作 短 等 。 


8.1 
新 建 工作 簿 


当 需 要 利用 VBA 完成 一 个 新 任务 时 , 会 涉及 Excel 工作 敌 的 新 建 问题 , 本 节 将 详细 介绍 
儿 种 新 建 工 作答 的 方法 。 


ES 新 建 空白 工作 簿 


使 用 Excel 新 建 空白 工作 短 的 方法 很 多 ， 最 常见 的 是 通过 选择 【文件 】>【 新 建 】 菜 单 
命令 。 这 里 要 介绍 的 是 使 用 Excel VBA 代码 新 建 空白 工作 敌 的 方法 ， 具 体 的 操作 步 又 如 下 。 

@ 明 在 Excel 中 ， 选 择 【 开 发 工具 】 选 项 卡 ， 在 【代码 】 选 项 组 中 单 击 Visual Basic 按钮 ， 
打开 VBA 代码 窗口 ,选择 【插入 】> 【模块 】 菜 单 命令 ， 并 输入 如 下 代码 : 


Sub 新 建 工作 敌 () 
Workbooks .add ! 利 用 工作 适 集 合 的 Add 方法 来 添加 新 工作 短 。 
End Sub 


上 @ 到 运行 上 述 代码 即 可 成 功 新 建 一 个 空白 工作 短 。 


翁 


【提示 】〗 在 上 述 代码 中 ，Workbooks 代表 工作 簿 集合 对 象 ，Workbook 代表 工作 敌对 象 。 创 建 工作 簿 必 
须 使 用 Workbooks， 如 果 使 用 Workbook.Add 代码 创建 工作 敌 , 运行 后 会 弹出 一 个 错误 提示 对 话 框 ， 如 
图 8-1 所 示 。 


区 


了 赂 让 了 作 和 


sh NT 
工作 和 条 人 90aa 法 下 不 0 才 工作 和 ， 
End seh 


8-1 错误 提示 对 话 框 
| 控制 工作 短 中 工作 表 的 个 数 
在 默认 情况 下 新 建 的 工作 筹 中 包含 3 张 工 作 表 .新 建 工作 秒 中 工作 表 的 数目 可 通过 Excel 


中 的 【Excel 选项 】 对 话 框 进行 设置 ， 即 在 Excel 中 选择 【文件 】>【 选 项 】 菜 单 命令 ， 打 开 
【Excel 选项 】 对 话 框 ， 在 【包含 的 工作 表 数 】 微 调 框 中 进行 相应 设置 即 可 ， 如 图 8-2 所 示 。 


2 cel HR 
用 户 界面 选项 


LD) 
总 是 使 用 ClearType(D 
[ES 


愤 莫 洗 直 栏 式 (R): | 在 屏幕 提示 一 显示 功能 江上 明 。 辣 


对 Microsoft Office 进行 个 性 化 设置 


Re: | 


图 8-2 【Excel 选项 】 对 话 框 


在 VBA 中 Workbooks 集合 的 Add 方法 的 语法 格式 为 如 下 。 
Add (Template) 


其 中 的 Template 为 可 选 参 数 ， 用 于 确定 如 何 创 建 工作 夭 。 如 果 将 该 参数 指定 为 
xlWBATemplate 常量 中 的 一 种 ， 则 新 建 工 作 敌 中 将 会 隐 式 指定 类 型 的 单 张 工作 表 。 
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关于 xI1WBATemplate 常量 说 明 如 表 8-1 所 示 。 


表 8-1 xIWBATemplate 常量 说 明 


xIWBATemplate 常量 说 明 
xIWBATWorksheet 工作 表 
xIWBATChart 图 表 
xIWBATExcel4MacroSheet | 宏 表 
xlIWBATExcel4IntIMacroSheet 国际 通用 宏 表 


新 建 仅 包含 一 张 工 作 表 的 工作 簿 具体 操作 步骤 如 下 。 
@ 贡 在 VBA 代码 窗口 中 输入 如 下 代码 ， 如 图 8-3 所 示 。 


Sub 新 建 工 作 簿 () 
Workbooks.Add (xlWBATWorksheet) 
End Sub 


作 短 ， 如 图 8-4 所 示 。 


全 于 让 
诺 这 了 no 
ma A rr 和 全 FE 
加 [3 El EE eI 是 
图 8-3 输入 代码 图 8-4 ”新建 仅 包含 一 张 工作 表 的 工作 短 


a 创建 自 定义 属性 的 工作 簿 


8.1.1 节 中 创建 工作 短 的 方法 比较 简单 ,但 是 在 实际 的 工作 中 存在 较 大 的 缺陷 。 因 为 用 户 
不 能 设置 工作 短 的 属性 ， 从 而 无 法 利用 新 建 工作 筹 完成 指定 的 操作 。 

下 面 将 来 讲述 如 何 创建 通过 分 配 变 量 ， 来 创建 自 定义 属性 的 工作 敌 。 

本 实例 主要 讲述 如 何 创 建 “ 英 达 图 书 销售 工作 筹 ” 具体 操作 步骤 如 下 。 

@ 灿 在 Excel 中 , 选择 【开发 工具 】 选 项 卡 ， 在 【代码 】 选 项 组 中 单 击 【Visual Basic】 按钮， 
打开 VBA 代码 窗口 ,选择 【插入 】> 【模块 】 菜 单 命令 ， 并 输入 如 下 代码 。 

Sub 新 建 图书 销 售 工作 敌 () 


Dim MyBook As Workbook 
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Set MyBook = Workbooks.Add 

With MyBook 

.Title = "图 书 销售 工作 敌 " 

.SaveAs Filename:=" 英 达 图 书 销售 工作 短 " 
.AddToFavorites 

End With 

End Sub 


上 到 运行 代码 后 ， 即 可 成 功 创建 “ 英 达 图 书 销售 工作 筹 ”， 位 置 为 默认 保存 到 “我 的 文档 ， 
效果 如 图 8-5 所 示 。 


8-5 新 建 工作 等 的 位 置 和 名 称 


上 述 代码 分 析 如 下 。 


® With MyBook.Title =“ 图 书 销售 工作 簿 ”语句 定义 工作 簿 保存 为 Web 页 时 的 标题 。 

®@ SaveAs Filename:=“ 英 达 图 书 销售 工作 簿 ”语句 定义 工作 簿 的 名 称 。 

®@ AddToFavorites 语句 主要 是 控制 保存 位 置 为 默认 位 置 (我 的 文档 ) 。 如 果 用 户 想 自 定义 保存 位 
置 ， 可 以 参照 下 一 节 的 内 容 。 


EE- 8.2 
5 保存 工作 秒 


工作 敌 在 新 建 和 编辑 后 ， 需 要 对 其 进行 保存 操作 。 保 存 工作 德 分 为 保存 工作 簿 和 另存 为 
其 他 工作 短 。 


E22 保存 工作 短 的 两 种 情况 


在 Excel 中 , 可 以 利用 VBA 保存 对 工作 簿 的 更 改 , 主要 分 为 保存 修改 后 的 单个 文件 和 同 
时 保存 所 有 已 打开 的 文件 。 
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1. 保存 单个 工作 短 
如 果 只 对 指定 名 称 的 工作 憩 进行 保存 ， 保 存 的 基本 语法 如 下 。 
Workbooks ("工作 短 名 称 ") .Save 
如 果 要 保存 当前 活动 的 工作 短 ， 可 以 直接 使 用 如 下 语句 。 
Activeworkbook.Save 

2. 保存 所 有 打开 的 工作 短 
当 同 时 打开 多 个 工作 短文 件 时 , 想 要 实现 同时 保存 所 有 的 工作 簿 , 则 可 使 用 下 面 的 程序 。 


Sub 保存 所 有 工作 短 () 
Dim i As Workbook "声明 变量 i 为 工作 短 对 象 ， 该 变量 用 于 后 面 的 循环 
For Each i In Workbooks ' 变 量 i 遍历 Workbooks 集合 对 象 中 的 所 有 工作 簿 
If i.Path <> "" Then ' 对 工作 簿 的 Path 属性 进行 判断 ， 判 断 工作 短 的 路 径 是 否 为 空 


i.Save ' 将 每 一 个 Path 属性 不 为 空 的 文件 按照 原来 的 存储 路 径 进行 保存 
End If 


Next i 
End Sub 


运行 上 述 代 码 ， 则 可 以 将 所 有 已 存在 的 文件 进行 保存 。 


琶 将 工作 短 进 行 另存 

在 日 常 应 用 中 有 时 需要 将 已 有 的 工作 德 另存 为 其 他 文件 ， 或 者 需要 将 工作 簿 备份 。 在 
Excel VBA 中 可 以 完成 这 些 工 作 ， 具 体操 作 如 下 。 
1. 另存 为 其 他 工作 簿 

另存 为 其 他 工作 敌 的 代码 格式 如 下 。 

Workbooks ("工作 夭 名 称 ") .Saveas 另存 的 完整 路 径 和 文件 名 


把 当前 文件 关闭 并 把 该 文件 另存 到 EE 盘 ， 文件 名 为 Myworkbook.xlsx， 上 有 具体 操作 命令 
如 下 。 
Sub 另存 为 () 


ActiveWorkbook.SaveAs "E:\ Myworkbook.xlsx" 
End Sub 


这 里 的 SaveAs 可 实现 “另存 为 ”操作 。 
2. 备份 工作 短 


备份 工作 簿 是 指 在 不 关闭 当前 文件 时 将 文件 复制 到 指定 的 路 径 下 。 按 照 指定 路 径 备 份 工 
作 短 的 代码 格式 如 下 : 


Workbooks ("工作 短 名 称 ") .SaveCopyAs 备份 的 完整 路 径 和 文件 名 
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把 当前 文件 备份 到 E 盘 ， 文 件 名 为 workbookl.xlsx， 具 体操 作 命令 如 下 。 
Sub 备份 文件 () 


ActiveWorkbook.SaveCopyAs "E:\workbookl.xlsx" 
End Sub 


运行 这 段 代码 ， 则 可 将 当前 文件 备份 到 EE 盘 中 ,并且 当 前 文件 不 关闭 。 


EE 为 工作 簿 添加 密码 


为 了 安全 起 见 ， 可 以 为 工作 短 添加 打开 密码 ， 具 体操 作 命 令 如 下 。 

Workbooks ("工作 簿 名 称 ") .SaveAs 完整 路 径 和 文件 名 ，Password:=" 设 置 的 密码 " 

例如 , 下面 将 当前 文件 另存 到 EE 盘 , 文件 名 为 “Myworkbook”, 设置 打开 密码 为 “abc123”， 
具体 操作 步骤 如 下 。 

人 @ 贡 在 代码 窗口 中 输入 如 下 代码 ， 如 图 8-6 所 示 。 


Sub 另存 并 加 密 () 
ActiveWorkbook.SaveAs "E:\Myworkbook.xlsx", Password:="abc123" 
End Sub 


网 工作 禾 1 - UserForal (代码 ) 


了 ] | 工作 入 加密 


Sub 工作 注 加 密 〇 
Aetive¥orkbook. SaveAs “E:\ Myworkbook xlsx", Password:="sbe123” 
End Sub 


图 8-6 输入 “另存 并 加 密 ” 功 能 的 程序 
@ 到 运行 该 程序 后 ， 即 可 在 指定 位 置 处 保存 当前 文件 ， 并 为 其 添加 密码 。 当 再 次 打开 该 文件 
时 ， 即 可 弹出 一 个 【密码 】 对 话 框 ， 必 须 输 入 正确 密码 后 ， 才 可 打开 该 文件 ， 如 图 8-7 所 示 。 i 
室 码 回国 
*“ lymworkbook xlsx” 有 密码 保护 。 
密码 @E); 


LCLw_| 
图 8-7 【密码 】 对 话 框 
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记 - 打开 工作 簿 


要 继续 未 完成 的 VBA 任务 时 ， 需 要 执行 工作 簿 的 打开 操作 ， 本 节 将 详细 介绍 打开 工作 
短 的 几 种 操作 方法 。 


8.3.1 打开 指定 工作 簿 


打开 已 有 工作 短 的 方法 有 多 种 ， 如 在 硬盘 中 打开 文件 的 目录 ， 双 击 已 存 的 Excel 文件 ， 
或 通过 选择 【文件 】>【 打 开 ]】 菜 单 命令 ， 也 可 以 通过 单 击 常 用 工具 栏 中 的 【打开 】 按 钮 肥 打 
开 指定 工作 筹 。 以 上 操作 相对 简单 ， 本 节 主 要 介绍 通过 Excel VBA 代码 来 实现 工作 短 的 打开 
操作 。 

由 于 每 个 工作 短 都 有 相对 应 的 路 径 ， 而 且 在 硬盘 中 其 他 位 置 还 可 能 存在 有 同样 文件 名 的 
Excel 文件 ， 所 以 在 打开 时 要 指定 路 径 。 

打开 指定 工作 短 的 代码 如 下 。 

Workbooks.Open Filename: = 文件 名 和 路 径 


【提示 】〗Filename:= 可 以 省 略 ; Open 后 要 有 一 个 半角 空格 。 
例如 ， 打 开 E 得 中 的 myworkbook.xlsx 文件 ， 具 体 的 操作 步骤 如 下 。 


@ 骨 在 VBA 代码 窗口 中 ， 插 入 一 个 新 模块 ， 并 输入 如 下 代码 。 


Sub 打开 工作 短 () 


Workbooks.Open Filename:="E:\ myworkbook.xlsx" 
End Sub 


上 到 运行 上 述 代码 即 可 打开 相应 的 文件 。 
要 打开 指定 文件 ， 也 可 以 使 用 以 下 代码 。 


Sub 打开 工作 夭 () 


Workbooks.Open "E:\ myworkbook.xlsx" 
End Sub 


【提示 】〗 如 果 所 指定 的 文件 不 存在 ， 会 弹出 如 图 8-8 所 示 的 错误 提示 信息 对 话 框 。 


114 


第 8 章 ”Excel 工作 短 相 关 操作 


运行 时 模 误 “1004 
找 不 到 “了 :myworkbook x1sx”。 请 检查 文件 名 的 拼写 ,并 验 
证 文件 位 置 是 1 


ed 
Ed 枯 助 人 9 


图 8-8 ”错误 提示 信息 


故 河 打开 设置 保护 的 工作 秒 


为 了 安全 需要 为 工作 簿 设置 安全 保护 ， 在 Excel 中 设置 打开 权限 密码 保护 的 具体 操作 步 
又 如 下 。 


@ 明 在 Excel 工作 簿 中 ， 选 择 【 文 件 〗> 【另存 为 〗 菜 单 命令 ， 即 可 打开 【另存 为 〗 对 话 框 ， 
在 【保存 位 置 〗 下 拉 列 表 中 选择 文件 的 存放 位 置 ， 然 后 单 击 【 工 具 〗 下 三 角 按钮 ， 在 其 下 拉 菜 单 
中 选择 【常规 选项 】， 如 图 8-9 所 示 。 

@ 到 即 可 打开 【常规 选项 对话 框 , 在 【打开 权限 密码 ] 文 本 框 中 输入 要 设置 的 密码 “111111?”， 
然后 单 击 【确定 】 按 钮 ， 如 图 8-10 所 示 。 


保存 位 置 | 加 我 6 广 慷 
这 的 立 | [已 下 载 
已 已 央 把 rh 廊 件 
沪 的 音乐 


癌 生成 备份 文件 @) 
文件 共享 


打开 权限 密码 @)， | eco 
修改 权限 窗 码 吕 
口 建议 只 读 @) 
到 滑 


图 8-9 【另存 为 】 对 话 框 图 8-10 【常规 选项 】 对 话 框 
@ 旨 即 可 打开 [确认 密码 ] 对 话 框 , 在 【重新 输入 密码 ] 文 本 框 中 输入 前 面 设置 的 密码 “111111” 
如 图 8-11 所 示 。 
加 单 击 【 确 定 】 按 钮 返回 【另存 为 】 对 话 框 ， 然 后 单 击 【 保 存 】 按 钮 即 可 。 


对 于 已 设置 密码 保护 的 工作 夭 ， 如 果 用 “Workbooks.Open+ 工 作 秒 地 址 ”的 方法 打开 ， 
系统 会 弹出 一 个 【密码 】 对 话 框 ， 提 示 用 户 输入 打开 密码 ， 如 图 8-12 所 示 。 
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确认 室友 回回 
“新 建 版 crosoft Excel 工 ... ”有 密码 保护 。 


重新 输入 密码 @B); 
2 
| 


| 
警 省 旦 丢失 或 造 忘 ， 
全 
|] 


8-11 【确认 密码 】 对 话 框 
为 了 方便 ， 用 户 可 以 在 不 出 现 密码 输入 提示 框 的 情况 下 打开 文件 ， 代 码 格式 如 下 。 


Workbooks .Open Filename := 文件 名 和 路 径 ，Password:= 文 件 打开 密码 
打开 E 得 中 文件 名 为 myworkbook.xlsx 且 密 码 为 abc123 的 文件 ， 具 体操 作 步 又 如 下 。 


图 8-12 提示 输入 打开 密码 


@ 名 在 VBA 代码 窗口 中 输入 如 下 代码 。 
Sub 打开 密码 保护 文件 () 
Workbooks.Open Filename:="E:\ myworkbook.xlsx"，Password:="abc123" 


End Sub 
@ 曙 运行 上 述 代 码 后 ， 系 统 不 再 弹出 【密码 】 对 话 框 ， 直 接 将 文件 打 姑 


Ek 判断 某 个 工作 秒 是 否 已 打开 
已 经 打开 时 ， 手 工 一 个 个 地 验证 会 很 麻 


已 经 打开 了 多 个 工作 短 ， 要 判断 哪个 工作 短 是 天 
烦 ， 如 果 使 用 VBA 代码 判断 会 比较 简单 ， 具 体操 作 方法 如 下 。 
例如 ， 判 断 文件 名 为 workbook1.xlsm 的 工作 簿 是 否 已 打开 ， 具 体操 作 命 令 如 下 。 


Sub 判断 文件 打开 状态 () 
Dim i As Integer ' 声 明 变 量 i 为 整数 ， 变 量 应 用 于 后 面 的 循环 
For i = 1 To Workbooks.Count ' 设 置 变 量 i 在 1 到 “工作 敌 数 量 ” 的 区 间 内 进行 循环 
IE Workbooks (i) .Name "workbookl .xlsm" Then 
"把 第 i 个 工作 敌 的 文件 名 和 给 定 的 “workbook1 .xlsm” 相 对 比 ， 如 果 相 同 就 执行 下 一 句 
MsgBox "文件 已 打开 " "用 对 话 框 显示 “文件 已 打开 ” 
Exit Sub "跳出 当前 过 程 
End If 
Next i 


MsgBox "文件 未 打开 " 
"如 果 程 序 没有 被 中 止 ， 就 说 明 找 不 到 相同 的 文件 名 ， 该 文件 未 被 打开 ， 而 如 果 找 到 了 相同 的 文件 名 ， 
"程序 会 在 运行 该 名 之 前 中 止 该 过 程 
End Sub 
运行 上 述 代码 ， 如 果 该 文件 已 打开 ， 系 统 即 可 弹出 一 个 如 图 8-13 所 示 的 提示 信息 ; 如 果 


该 文件 未 打开 ， 则 弹出 如 图 8-14 所 示 的 提示 信息 。 
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了 | | 现 卫 文件 打开 区 奢 
区 数 ， 友 野生 


用 : 
工作 入 


k 


于 后 面 鸣 请 环 
要 量 "的 区 问 内 进行 循环 


机 有 说 


al 
E 


tb 。 加 村 相 同 对 执行 下 一 句 
于 
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| 现 也 文件 打开 交大 


为 可 数 ， 变 县 应 用 于 后 而 的 特 环 。_ 
在 到" 工作 入 数量 "的 区 问 内 进行 条 环 


图 8-14 文件 未 打开 提示 信息 


闭 所 有 工作 短 。 


工作 簿 操作 完成 并 保存 后 ， 需 要 将 其 关闭 。 关 闭 工作 德 包括 关闭 指定 名 称 的 工作 簿 和 关 
8.4.1 关闭 指定 名 称 的 工作 簿 


Workbooks ("工作 敌 名 称 ") .Close 
码 如 下 。 


当 打 开 多 个 工作 短 时 ， 可 以 使 用 下 面 的 代码 关闭 指定 名 称 的 工作 敌 。 


Workbooks ("Myworkbook.xlsx") .Close 
End Sub 


例如 ， 关 闭 已 打开 的 多 个 工作 短 中 的 名 为 “Myworkbook.xlsx” 的 工作 簿 ， 具 体 VBA 代 
Sub 关闭 指定 工作 敌 () 


【提示 】〗 当 指定 的 工作 簿 不 是 打开 状态 时 ， 在 
后 会 出 现 错误 提示 信息 ， 如 图 8-15 所 示 。 


9 


还 条 


上 述 程序 


Js 二 | 
8.4.2 关闭 所 有 工作 敌 
码 如 下 。 


图 8-15 错误 提示 信息 


可 以 使 用 Workbooks 集合 对 象 的 Close 方法 关闭 当前 所 有 已 打开 的 工作 短 ， 具 体操 作 代 
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Sub 关闭 所 有 工作 短 () 
Workbooks.Close 
End Sub 


如 果 工 作 短 集合 中 含有 未 保存 的 工作 簿 , 则 会 弹出 是 否 保存 更 改 的 信息 提示 框 ,如 图 8-16 


所 示 。 
【提示 】〗 不 能 用 Workbook 代 蔡 Workbooks， 和 否则 在 运行 时 会 出 现 错误 ， 如 图 8-17 所 示 。 


/ 八 虹 让 对 workbookt aaay 的 更 8g? 


[本 已] [Fv 取消 结束 四) 于 助 Wp | 
图 8-16 ”是否 保存 提示 信息 图 8-17 错误 提示 信息 
关闭 前 是 否 保 存 


利用 VBA 代码 可 以 在 程序 中 设置 关闭 前 自动 执行 保存 操作 ， 且 在 执行 关闭 程序 时 不 会 


再 弹出 是 否 保存 更 改 的 提示 。 常 见 的 关闭 工作 簿 的 情况 如 下 。 
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. 关闭 当前 工作 秒 并 保存 更 改 
利用 VBA 关闭 当前 工作 簿 并 保存 的 代码 格式 : 
ActiveWorkbook() .Close savechanges:=True 
. 关闭 当前 工作 簿 不 保存 更 改 
利用 VBA 关闭 当前 工作 短 但 不 保存 对 其 更 改 的 代码 格式 : 
ActiveWorkbook ("工作 夭 名 称 ") .Close savechanges:=False 
. 关闭 指定 工作 筹 并 保存 更 改 
利用 VBA 关闭 指定 名 称 的 工作 敌 并 保存 其 更 改 的 代码 格式 : 
Workbooks ("工作 夭 名 称 ") .Close savechanges:=True 
例如 ， 关 闭 名 称 为 “新 建 工 作 敌 .xls” 的 工作 秒 并 保存 其 更 改 ， 其 程序 代码 如 下 。 


Sub 关闭 并 保存 () 
Workbooks ("新 建 工作 短 .xls") .Close savechanges:=True 
End Sub 


. 关闭 指定 工作 短 不 保存 更 改 
利用 VBA 关闭 指定 名 称 的 工作 敌 但 是 不 保存 对 该 工作 短 的 更 改 的 代码 格式 : 


Workbooks ("工作 短 名 称 ") .Close savechanges:=False 


0 第 8 章 .Excel 工作 簿 相关 操作 
例如 ， 关 闭 名 称 为 “新 建 工 作乱 .xls” 的 工作 德 并 不 保存 对 其 进行 的 更 改 操作 ， 其 程序 代 
码 如 下 。 
Sub 关闭 并 保存 () 


Workbooks (" 新 建 工 作 短 .xls") .Close savechanges:=False 
End Sub 


5. 关闭 所 有 打开 的 工作 得 并 进行 保存 
如 果 要 对 打开 的 所 有 工作 短 进 行 保存 并 关闭 操作 ， 可 执行 如 下 代码 命令 。 


Sub 全 部 保存 并 关闭 () 

Dim i As Workbook  ”，' 声 明 变量 i 为 工作 敌对 象 ， 该 变量 用 于 后 面 的 循环 

For Each i In Workbooks ' 变 量 i 遍历 Workbooks 集合 对 象 中 的 所 有 工作 短 
If i.Name <> ThisWorkbook.Name Then ' 判 断 每 一 个 工作 短 是 否 包 含 当前 代码 的 工作 簿 
i.Close savechanges:=True ' 如 果 工 作 短 中 不 包含 当前 程序 代码 ， 则 保存 其 更 改 并 关闭 

End If 

Next i 

ThisWorkbook.Close savechanges:=True  ' 最 后 保存 并 关闭 包含 当前 程序 代码 的 工作 和 

End Sub 


8.5 
综合 实战 1 一 一 设置 访问 工作 往 的 属性 


可 以 通过 右 击 Excel 文件 ， 在 弹出 的 快捷 菜单 中 选择 【属性 】 菜 单 命令 的 方式 查看 该 工 
作 簿 的 属性 信息 。 打 开 当 前 工作 德 的 【属性 】 窗 口 后 ， 选 择 【 常 规 】 选 项 卡 即 可 看 到 该 工作 
短 的 创建 时 间 及 修改 时 间 等 属性 信息 ， 如 图 8-18 所 示 。 
新 建 Wicrosoft Excel 工作 表 .xlsx 展 性 ” 原 | 圆 
第 规 | 自 定义 1 摘要 


| 疡 于 有 srosoft Excel 工作 表 可 习 


ft Excel 工作 表 
Excel A CC) 
C:\Documents an Settings\Adninistrator K 


15.0 IB (5, 360 字 节 ) 
16.0 IB (16,384 字 节 ) 


2012 年 2 月 20 日 ，14:29:33 
2012 年 2 月 21 日 ，9:22:12 
2012 年 2 月 21 日 ，9:22:07 


口 芝 素 @ 口 隐 厅 名 


图 8-18 查看 文件 属性 
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利用 VBA 程序 命令 同样 可 以 查看 工作 德 的 相关 属性 。 比 如 查看 工作 簿 上 次 的 保存 时 间 ， 
具体 操作 命令 如 下 ， 如 图 8-19 所 示 。 


Sub 保存 时 间 () 
Dim savetime Rs String 
On Error Resume Next 
savetime = ActiveWorkbook.BuiltinDocumentProperties ("1ast save time") .Value 
If savetime = "" Then 
MsgBox ActiveWorkbook.Name & "， 该 工作 短 没 有 保存 过 ! " 
Else 
MsgBox "您 好 , 该 工作 短 最 近 一 次 的 保存 时 间 是 : " & savetime, ,ActiveWorkbook.Name 
End If 
End Sub 


全 Wicroroft Visual Basic for Applications - 工作 短 1.xlsx [正在 运行 ] - 【This¥ork... 攻占 | 


也] | 保存 时 间 


ET 
员 sheetl heetl deck BuiltiaDecamentpropartissCrlast seve tine7) .Value 


savererigook Wne & …， 识 工 作 隆 没 有 保存 过 ? 


nse 

This¥orkbook seBox “修好 ， 访 工作 短 量 近 一 次 的 保存 时 间 是 :" & savetine，，Activelorkbod) 

中 是 VBAPreieet (新 缠 1 End IE 
> 


nd Sah 


onElictResell ~ xlUserk 
Datel904 False 

Di spl oyDr ewis -4104 ~ x1Di 
Di spl ayTInkC on Tras 
DoNotPromptFec False 
Enabl oAat oRac Trae 
EneryptionPre 
enwel opeVi sit False 


图 8-19 ”输入 查询 工作 簿 属性 的 程序 
在 以 上 代码 的 下 结构 语句 中 ， 系 统 自 动 对 工作 秒 的 保存 时 间 变 量 “savetime ”进行 判断 ， 
如 果 “savetime” 的 值 为 空 ， 则 表示 之 前 没有 保存 过 这 个 工作 敌 文 件 ， 运 行 代码 时 会 弹出 如 
图 8-20 所 示 的 提示 信息 。 
如 果 工 作 短 之 前 进行 过 保存 操作 ， 运 行 以 上 VBA 程序 代码 后 ， 系 统 会 自动 弹出 显示 保 
存 时 间 的 提示 信息 ， 如 图 8-21 所 示 。 


Microsoft Excel 区 工作 短 1. xlsx 园 | 


工作 短 1 ,该 工 作 往 没 有 保存 过 9 您 好 ,该 工作 簿 最 近 一 次 的 保存 时 间 是 : 2012-2-21 12:08:39 


图 8-20 没有 保存 文件 的 提示 信息 8-21 显示 保存 时 间 的 提示 
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机 8 8.6 
综合 实战 2 一 一 禁止 单元 格 的 内 容 被 修改 


可 以 用 锁定 单元 格 的 方式 来 保护 工作 表 的 内 容 ， 以 防止 操作 者 有 意 或 无 意 地 更 改 单 元 格 
内 容 。 保 护 单元 格 内 容 不 被 更 改 的 具体 操作 步骤 如 下 。 


人 @ 灿 在 代码 窗口 中 输入 以 下 程序 ， 如 图 8-22 所 示 。 


Private Sub Workbook SheetChange (ByYVal Sh As Object, ByVal Target Rs Range) 

MsgBox "您 好 ， 该 文档 不 能 修改 " 

"在 单元 格 内 容 发 生 改变 时 提示 不 能 更 改 单元 格 内 容 

Application.EnableEvents = False 

' 当 Application 对 象 的 EnableEvents 属性 为 False 时 ， 可 以 禁止 其 他 所 有 事件 程序 运行 。 

Target.Value = i “' 使 单元 格 清空 

Application.EnableEvents = True 

' 由 于 还 要 使 其 他 事件 程序 发 作用 ， 所 以 设置 Application.EnableEvents = True 让 所 有 事件 程 
序 重新 有 效 。 

End Sub 


入 icrosoft Visual Basic for Applications - workbookl.xlsx - [This¥orkbook ( 代 .-- 基 后 | 加 
文件 日 ” 帝 总 E) ”视图 (VW) 插入 四 ”格式 (Q) 淹 式 (D) 运行 (R) 工具 中 ”外接 程序 (A) 瘟 口 WO 帮助 山 -8 X 
3 的 四 PH 日 且 导 全 宇和 @ 行 12. 列 1 

了 | [SheetChange 
De ee Sh As Object, ByVal Target As Range) 
和 sheetl Gheet1 国 单元 格 内 容 发 生疏 去 时 提示 不 能 更 改 单元 格 内 容 
丧 ] Sheet2 (Sheet: Mpplication. EnableEyent EA 
shat (Cheet pplicetio ee hd 可 以 禁止 其 他 所 有 事件 程序 运行。 


Thi sgorkbook 和 
中 -人 镶 模块 


i EnableEvents = 
惟 桓 志 ! End Sub 
> 


二 所 以 设置 hpplication EnableEvents = True 让 所 有 事件 } 


AccuracyVersi0 
IAutoUpdatePreO 
ChangeHistoryO 
CheckCompatit False 
ConflictResol1 - xlUserRe 
Dateig04 False 
DisplayDrawir -4104 - x1Di 
DisplayInkC on True 
DoNotPr omptFe False 
JEnableAutoRec True 
EncryptionPre 
EnvelopeVisitFalse 


图 8-22 输入 禁止 修改 内 容 的 代码 


0 到 代码 输入 完毕 后 ， 当 更 改 单元 格 内 容 后 ,系统 则 弹出 禁止 修改 单元 格 内 容 的 提示 ,如 图 
8-23 所 示 。 关 闭 提示 信息 后 ， 单 元 格 内 容 将 被 清空 
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Wh 


D E F G 悦 
| 
2_ ghf Nicrosoft Excel | 
3 [ 1 回 | 
4 您 好 ， 该 文档 不 能 修改 := 
人 二 
6 | 
7 | 
8 UU 
9 
10 
11 
12 
13 v 

HW 4 PH| Sheetl -Sieet2 Sheets ty re | 
就 纺 | | | 加 回国 00% 


8-23 ”禁止 修改 内 容 的 提示 信息 


8.7 综合 实战 3 一 一 为 工作 筹 添加 当 
前 日 期 和 时 间 的 提示 信息 


在 Excel VBA 中 可 以 通过 设置 “工作 簿 打开 事件 ” 让 文件 在 打开 时 自动 运行 某 个 特定 程序 。 
例如 ， 在 Excel VBA 中 ， 要 实现 打开 Excel 文件 时 ， 提 示 当 前 日 期 和 有 具体 时 间 ， 有 具体 的 
操作 步骤 如 下 。 


@ 贡 在 代码 窗口 中 ， 双 击 【 工 程 】 窗 格 中 的 “ThisWorkbook ”选项 ， 进 入 该 选项 对 应 的 代码 
窗口 ， 从 中 输入 如 下 代码 ， 如 图 8-24 所 示 。 


Private Sub Workbook Open() 
MsgBox "当前 日 期 " & Date &", 当 前 时 间 : " & Time 
End Sub 


上 @ 节 保存 并 关闭 该 文件 ， 当 再 次 打开 该 工作 短 时 ， 即 可 自动 运行 上 述 程序 ,并 弹出 显示 当前 
日 期 和 时 间 的 提示 框 ， 如 图 8-25 所 示 。 


Nicrosoft Ezxcel 


当前 日 期 2012-2-21, 当前 时 间 : 11:22:58 


图 8-24 输入 程序 代码 图 8-25 打开 文件 时 显示 当前 日 期 和 时 间 


【提示 】 其 中 MsgBox 函数 用 于 弹出 提示 对 话 框 ，Date 函数 用 于 返回 系统 的 当前 日 期 ，Time 函数 用 于 
返回 系统 的 当前 时 间 。 
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8.8 综合 实战 4 一 一 禁止 打印 工作 簿 
文件 内 容 


利用 VBA 代码 可 以 实现 禁止 相关 工作 短 的 打印 操作 。 其 中 工作 短 事 件 列表 中 的 
Workbook_BeforePrint 事件 和 打印 动作 有 关联 ， 可 对 其 进行 设置 禁用 打印 工作 筹 。 禁 止 打 印 
工作 短文 件 内 容 的 具体 操作 步骤 如 下 。 


国 在 VBA 代码 窗口 中 ， 双 击 【 工 程 】 窗 口中 的 “ThisWorkbook” 选 项 ， 进 入 到 该 选项 对 


应 的 代码 窗口 中 ， 在 “对 象 ”下 拉 列 表 中 选择 “Workbook” 选 项 ， 在 “过 程 ”下 拉 列 表 中 选择 
“BeforePrint” 选 项 ,然后 在 其 代码 框架 中 输入 相应 的 程序 代码 ,最 终 代码 如 下 ,如 图 8-26 所 示 。 


Private Sub Workbook BeforePrint (Cancel As Boolean) 
Cancel = True 'Cancel 作为 事件 提供 的 自 变量 ， 当 值 设置 为 True 时 ， 打 印 功能 失效 
MsgBox "您 好 ， 打 印 功 能 已 被 禁止 ! "， vbExcelamation 


"用 MsgBox 函数 提供 提示 框 ， 告 诉 用 户 不 能 打印 文档 内 容 
End Sub 


6 Ricrosoft Visual Basic for Applications - workbookl.xlsx - [This¥orkbook ( 代 ..- 必 ] 问 | 加 
文件 四 ”六 强 (日 视图 Wj 御 入 四 ” 格 X(O) 源 坛 (D) 运行 (8) 工具 中 外 接 程 序 (A) 宣 DW) 才 助 HH) -上 8x 
国 回电 人 = 


了 了] [BeforePrint 
全 全 各 让 | 
轴 Sheetl GheetA 3 True “Cancel 作 为 事件 提供 的 自 变量 ， 当 值 设置 为 True 时 ,打印 功能 失效 


地 处 能 已 被 禁止 9“， vbExcel， 
和 Sheet2 Ghest 全 二 让 和 
Sheet3 (Sheet: 


图 8-26 输入 禁止 打印 功能 的 代码 


加 代码 输入 完毕 后 ， 当 在 工作 表 中 对 该 文件 进行 打印 时 ， Eerosoft Exeel 国 


系统 则 会 弹出 相应 的 提示 信息 ， 如 图 8-27 所 示 。 es 


8-27 禁止 打印 提示 信息 
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EE- 8.9 
; 高 手 私房 菜 


技巧 1; 禁止 使 用 关闭 按钮 


通过 设置 工作 德 的 BeforeClose 事件 ， 可 以 让 Excel 窗口 右上 角 的 【关闭 】 功 能 失效 ， 具 
体 代 码 如 下 。 
Private Sub Workbook BeforeCclose (Cancel As Boolean) 


Cancel = True 
End Sub 


其 中 ，Workbook_BeforeClose 是 当 工 作 敌 关闭 时 发 生 的 事件 ，Cancel As Boolean 是 工作 
簿 关闭 事件 提供 的 自 变量 ， 如 果 Cancel = True， 则 【关闭 】 按 钮 失效 。 
技巧 2: 轻松 解决 因为 密码 设置 的 错误 提示 

使 用 Excel VBA 代码 执行 打开 已 设置 了 密码 的 工作 簿 时 ,需要 注意 路 径 和 文件 名 是 否 正 
确 ， 如 果 这 些 都 正确 了 ， 还 应 注意 代码 是 否 有 书写 错误 ， 其 中 需要 特别 注意 的 是 在 password 
参数 后 并 不 是 直接 使 用 “=” 号 连接 密码 的 ， 而 是 使 用 “:=”。 
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工作 表 是 操作 Excel 时 必 不 可 少 的 对 象 ， 同 时 是 编辑 单元 格 对 象 的 入 口 和 载体 。 要 想 利 
用 Excel VBA 更 好 地 控制 Excel 工作 筹 和 单元 格 ， 掌 握 控制 工作 表 的 方法 至 关 重 要 。 本 章 将 
详细 介绍 Excel 工作 表 的 相关 操作 ， 如 工作 表 的 插入 、 选 择 、 隐 藏 及 删除 等 。 


9.1 
选择 工作 表 


而 到 选取 指定 名 称 的 工作 表 


在 利用 VBA 进行 程序 设计 时 ， 有 些 操作 需要 在 指定 的 工作 表 中 完成 ， 所 以 应 该 先 选择 
指定 的 工作 表 。 

【 例 9.1】 在 工作 德 中 选择 名 称 为 “2 月 份 工 资 表 ”的 工作 表 ， 具 体操 作 命 令 如 下 。 

Sub 选择 指定 工作 表 () 

Worksheets ("2 月 份 工资 表 ") . Select 

End Sub 

代码 分 析 : 其 中 Select 是 选择 工作 表 集 合 对 象 (Worksheets) 或 工作 表 对 象 (Worksheet) 
的 方法 ， 其 功能 是 使 工作 表 处 于 选中 状态 。 


选择 多 个 工作 表 


在 工作 表 操作 中 ， 经 常会 遇 到 同时 选择 多 个 工作 表 的 操作 ， 这 可 以 使 用 Shift 键 或 Ctrl 
键 与 鼠标 配合 的 方式 来 实现 , 使 用 Shift 键 可 以 选择 连续 的 几 张 表 , 而 按 Ctrl 键 同 时 单 击 可 先 
择 多 个 不 连续 的 表 。 本 节 主要 介绍 使 用 VBA 命令 的 方式 实现 多 个 工作 表 的 选择 。 

【 例 9.2】 同 时 选中 两 个 不 连续 的 工作 表 “Sheetl ”和 “Sheet3 "”， 具 体操 作 命令 如 下 。 

sub 选择 多 个 工作 表 () 


Worksheets (Array ("Sheetl1l", "Sheet3")).Select 
End Sub 


代码 分 析 : 其 中 Array 函数 用 于 指定 要 选择 的 多 个 工作 表 ， 工 作 表 的 名 称 必须 在 英文 输 


Wh 
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入 状态 下 的 双 引 号 内 ， 且 工作 表 之 间 用 逗号 分 隔 。 
【 例 9.3】 选 择 工作 簿 中 的 第 2 个 到 第 5 个 工作 表 ， 有 具体 操作 命令 如 下 。 
Sub 选择 多 个 工作 表 () 


Worksheets (Array (2,5)) .Select 
End Sub 


运行 上 述 代 码 可 以 选中 工作 簿 中 的 4 个 工作 表 。 
【 例 9.4】 选 中 工作 短 中 的 所 有 工作 表 ， 具 体操 作 命 令 如 下 。 
Sub 选择 全 部 工作 表 () 


Worksheets.Select 
End Sub 


【提示 】〗 上 述 程序 中 的 “Worksheets.Select” 语 句 可 以 用 “Sheets.Select” 替 换 ， 效 果 是 一 样 的 。 


9.2 
插入 工作 表 


- 般 新 建 的 工作 簿 中 默认 带 有 3 个 工作 表 ， 分 别 是 “Sheet1”、“Sheet2” 和 “Sheet3”， 
当 工 作 表 的 数量 不 够 用 时 ， 可 以 插入 工作 表 。 


| 插入 一 个 工作 表 


利用 VBA 插入 工作 表 ， 主 要 是 使 用 了 Worksheets 集合 对 象 的 Add 命令 。 可 以 使 用 以 下 
程序 代码 在 当前 活动 工作 表 的 前 面 插入 单个 空白 工作 表 。 
Sub 插入 单个 工作 表 () 


Worksheet .Rdd 
End Sub 


如 果 要 插入 指定 名 称 的 单个 工作 表 ， 可 以 设 定 一 个 名 称 变量 ， 并 对 该 变量 赋予 需要 的 工 
作 表 名 称 。 
【 例 9.5】 在 工作 秒 中 插入 名 为 “考勤 表 ” 的 工作 表 ， 具 体操 作 命 令 如 下 ， 如 图 9-1 所 示 。 
Sub 插入 考勤 表 () 
Dim i As Object  ' 声 明 i 为 对 象 变量 
Set i = Worksheets.Adq “将 新 添加 的 工作 表 对 象 赋予 对 象 变量 i 


i.Name = "考勤 表 " 'Name 是 工作 表 对 象 的 属性 ， 用 于 指定 工作 表 的 名 称 
End Sub 
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和 财 子 对 各 天 最 
， 用 于 帮 定 二 作 过 的 名 和 


图 9-1 输入 插入 指定 名 称 的 单个 工作 表 程 序 
运行 上 述 程序 ， 即 可 在 当前 活动 工作 表 的 前 面 插入 一 个 名 为 “考勤 表 ” 的 工作 表 ， 如 图 


9-2 所 示 。 
A B C D E F C 
1 
2 
3 
4 
5 
6 
7 
8 
3 
10 
11 
12 
13 ~ 
MH 4 MI 考勤 表 Sheetl Sheet2 Sheet3 一 人 “4[ 站 ] 
图 9-2 在 当前 活动 工作 表 前 插入 指定 工作 表 
除 此 之 外 ， 还 可 以 使 用 插入 新 工作 表 并 为 当前 活动 工作 表 命名 的 方式 插入 指定 名 称 的 工 


作 表 ， 具 体操 作 命令 如 下 。 


Sub 插入 单个 工作 表 并 命名 () 
Sheets .Add 
RctiveSheet .Name = "工资 表 " “当前 活动 工作 表 的 名 称 为 “工资 表 ” i 

End Sub 

代码 分 析 : ActiveSheet 是 指 当 前 活动 工作 表 。 因 为 新 插入 的 工作 表 会 自动 成 为 活动 工作 
表 ， 所 以 ActiveSheet 是 指 新 插入 的 工作 表 。 


[2 插入 多 个 工作 表 


在 使 用 Excel 时 ， 经 常 遇 到 需要 同时 插入 多 张 表 的 情况 ， 如 果 逐 个 插入 会 比较 麻烦 ， 使 
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用 VBA 中 Worksheets 集合 对 象 的 Count 属性 可 以 实现 同时 插入 多 张 空白 工作 表 。 
【 例 9.6】 使 用 VBA 命令 同时 插入 4 个 工作 表 ， 具 体操 作 命令 如 下 。 
Sub 插入 多 个 工作 表 () 
Worksheets.Add Count:=4 


"插入 工作 表 的 数量 为 4， 这 里 使 用 了 自 变量 Count 来 控制 插入 工作 表 的 数量 
End Sub 


如 果 在 插入 多 个 工作 表 时 想 同 时 为 这 些 工 作 表 指 定名 称 ， 可 以 使 用 变量 循环 的 方式 为 工 
作 表 指定 具有 一 定 顺序 的 工作 表 名 。 

【 例 9.7】 插 入 多 个 工作 表 ， 并 分 别 将 其 命名 为 “2011 年 ”一 “2015 年 ”， 具 体操 作 命令 
如 下 ， 如 图 9-3 所 示 。 


Sub 插入 多 个 工作 表 并 命名 () 
Dim i As Integer ' 声 明 i 为 整数 变量 
For i = 1 To 5 ' 设 置 循环 次 数 是 5 次 , 插入 (sheets.Add) 的 工作 表 数 量 也 为 5 个 
Sheets.Add 
ActiveSheet.Name = "201" & i & "年 " 
Next i 
End Sub 


4 工作 郑 1 - Sheet2 (代码 ) 


了 | | 项 入 多 个 工作 表 并 命名 


Sub eT 
1 hs Ite vi pr 
是 


商量 
a 插入 ( Sheets Add) 的 工作 表 数 量 也 为 5 人 
20l ai a “年 


9-3 ”实现 插入 多 个 工作 表 并 命名 的 程序 代码 


运行 上 述 程序 ， 即 可 在 当前 活动 工作 表 前 面 插入 5 个 工作 表 ， 分 别 命名 为 “2011 年 ”一 
“2015 年 ” 如 图 9-4 所 示 。 


| B a 

1 

3 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

到 -> 
Hab 2015 年 C2014 年 C2013 年 C2012 年 C2011 绩 4[ wm |] SI 


9-4 插入 多 个 工作 表 并 命名 
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在 指定 位 置 插入 工作 表 
可 以 根据 需要 在 指定 位 置 插入 工作 表 。 根 据 插入 工作 表 的 位 置 不 同 ， 可 以 分 为 以 下 4 种 
情况 。 
1. 在 指定 工作 表 前 插入 工作 表 
【 例 9.8】 使 用 自 变 量 Before 在 已 有 工作 表 Sheetl 前 插入 一 个 新 工作 表 ， 有 具体 操作 命令 如 下 。 
Sub 指定 位 置 前 插入 () 


Worksheets .Add Before:=Sheets ("Sheet1") 
End Sub 


运行 该 程序 可 以 实现 在 工作 表 Sheetl 前 插入 一 张 空白 工作 表 。 

2. 在 指定 工作 表 后 插入 工作 表 
【 例 9.9】 使 用 自 变量 After 在 已 有 工作 表 Sheetl 后 插入 一 个 新 工作 表 , 具体 操作 命令 如 下 。 
sub 指定 位 置 后 插入 () 


Worksheets.Add After:=Sheets ("Sheet1") 
End Sub 


运行 该 程序 可 以 实现 在 工作 表 Sheetl 后 插入 一 张 空白 工作 表 。 
3. 在 工作 表 最 前 位 置 插入 工作 表 
【 例 9.10】 在 所 有 工作 表 最 前 位 置 插入 工作 表 ， 具 体操 作 命令 如 下 。 


Sub 最 前 位 置 插入 () 
Worksheets.Add Before:=Sheets (1) 
End Sub 


4. 在 工作 表 最 后 位 置 插入 工作 表 
【 例 9.11 】 在 已 有 工作 表 最 后 位 置 插 入 新 工作 表 ， 有 具体 操作 命令 如 下 。 


Sub 最 后 位 置 插入 () 
Worksheets .Add After:=Sheets ("Sheets.Count") 
End Sub 


这 里 利用 “Sheets.Count” 来 确定 当前 工作 簿 中 工作 表 的 数量 。 


[| 插入 前 判断 工作 表 是 否 存 在 


插入 工作 表 时 可 以 为 表 定义 名 称 ， 如 果 插 入 的 表 名 已 经 存在 ， 很 可 能 造成 命令 错误 。 所 
以 在 插入 指定 名 称 的 工作 表 前 需要 判断 该 工作 表 是 否 存在 ， 然 后 再 进行 插入 工作 表 的 操作 。 

【 例 9.12】 在 工作 敌 中 插入 “2 月 份 工 资 表 ”工作 表 ， 判 断 表 “2 月 份 工资 表 ” 是 否 存 在 ， 
并 执行 插入 操作 的 命令 如 下 。 


129 


Wh 


[ETRTEA 入 门 与 实战 


在 VBA 代码 窗口 中 ， 新 建 模块 1 并 从 中 输入 如 下 程序 代码 ， 如 图 9-5 所 示 。 


Sub 插入 前 判断 () 
Dim x As Integer "设置 循环 变量 
For x = 1 To Sheets.Count “' 设 置 变量 在 “1” 到 “工作 表 数量 ”之 间 循 环 
If Sheets (x) .Name = "2 月 份 工资 表 " Then “判断 工作 表 的 名 称 是 否 为 “2 月 份 工资 表 ” 
MsgBox "已 存在 2 月 份 工资 表 " ”，' 当 “2 月 份 工资 表 ” 工 作 表 存在 时 ， 运 行 该 程序 会 弹出 显示 
“已 存在 2 月 份 工资 表 ” 
Exit Sub "如 果 存 在 “2 月 份 工资 表 ” 工 作 表 ， 则 退出 该 过 程 
End If 
Next x 
Sheets.Add ' 如 果 不 存在 则 插入 工作 表 
ActiveSheet .Name = "2 月 份 工资 表 "  ”'ActiveSheet 是 指 当前 活动 工作 表 ， 所 以 对 当前 
活动 工作 表 命名 即 可 
End Sub 


图 9-5 输入 代码 
程序 输入 完毕 后 ， 运 行 该 程序 ， 若 “2 月 份 工资 表 ” 工 作 表 存在 ， 运 行 该 程序 会 弹出 显 
示 “ 已 存在 2 月 份 工资 表 ” 信 息 提示 框 ， 如 图 9-6 所 示 。 
在 插入 指定 名 称 的 工作 表 时 ， 如 果 不 进行 判断 ， 取 消 上 述 代码 中 的 For 循环 ， 则 在 插入 
名 称 相 同 的 工作 表 时 会 弹出 如 图 9-7 所 示 的 错误 提示 信息 。 


运行 时 错误 “1004 : 
ati 


| 已 2 月 从 I 光 


[ss 汉中] 结 训 加 帮助 人 0 


ER :月 份 ] 和 SUITETEEG LE D1 
图 9-6 已 存在 提示 信息 图 9-7 工作 表 重 复命 名 的 错误 提示 
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9.3 
移动 工作 表 


用 户 可 以 通过 移动 的 方式 改变 工作 表 在 工作 短 中 的 位 置 ， 或 者 将 工作 表 移动 到 其 他 工 
作 短 中 。 


93.1 在 工作 秒 内 移动 工作 表 


在 工作 敌 内 移动 工作 表 有 两 种 情况 ， 分 别 是 移动 到 指定 工作 表 之 前 和 移动 到 指定 工作 表 
之 后 。 
1. 移动 到 指定 工作 表 之 前 

【 例 9.13】 将 工作 表 “ 考 勤 表 ”移动 到 工作 表 “ 工 资 表 ”之 前 ， 具 体操 作 命 令 如 下 。 


Sub 移动 到 工作 表 之 前 () 
Sheets ("考勤 表 ") .Move before:=Sheets ("工资 表 ") 
End Sub 


代码 分 析 : 其 中 Move 起 到 移动 工作 表 对 象 的 作用 ，before 是 设置 移动 到 指定 工作 表 之 
前 。 
2. 移动 到 指定 工作 表 之 后 

【 例 9.14】 将 工作 表 “ 考 勤 表 ”移动 到 工作 表 “ 工 资 表 ”之 后 ， 具 体操 作 命 令 如 下 。 

Sub 移动 到 工作 表 之 后 () 


Sheets ("考勤 表 ") .Move after:=Sheets ("工资 表 ") 
End Sub 


其 中 的 after 表示 移动 到 指定 工作 表 之 后 。 


Ee 工作 簿 之 间 移 动工 作 表 


工作 敌 之 间 移 动工 作 表 分 为 移动 到 指定 工作 短 和 移动 到 新 工作 短 。 
1. 移动 到 指定 工作 簿 

【 例 9.15】 将 工作 表 “4 月 份 考勤 表 ” 移 动 到 “第 一 季度 考勤 .xls” 工 作 短 的 第 3 个 工作 
表 的 后 面 ， 具 体操 作 命 令 如 下 。 


Sub 移动 到 指定 工作 短 () 
Sheets ("4 月 份 考 勤 表 ") .Move after:=Workbooks ("第 一 季度 考勤 表 .xls") .Sheets (3) 
End Sub 
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【提示 】 执 行 上 述 命令 时 必须 保证 移动 到 的 目标 工作 短处 于 打开 状态 ,否则 运行 程序 时 会 弹出 错误 提示 
信息 ， 如 图 9-8 所 示 。 


| 通用) 了 [已 动 到 指定 工作 竹 了 可 
Sb 和 后 脂 土工 作 福 0 
二 Sheets GC “) .Wove after .=Porkbooks ("第 一 季度 考勤 表 x1s").Sheets(3) 之 
d Sub 


结束 四 更 助 o 


图 9-8 错误 提示 信息 
2. 移动 到 新 工作 簿 
【 例 9.16] 将 工作 表 “ 考 勤 表 ”移动 到 一 个 新 的 工作 短 中 ， 具 体操 作 命 令 如 下 。 
Sub 移动 到 新 工作 短 () 


Worksheets ("考勤 表 ") .Move 
End Sub 


当 Move 方法 后 没有 自 变 量 时 ， 即 将 工作 表 移 动 到 一 个 新 建 的 工作 短 中 。 


9.4 
复制 工作 表 


当 需 要 添加 相同 的 工作 表 时 ， 不 需要 重复 新 建 ， 只 需要 复制 操作 即 可 快速 达到 相同 的 效果 。 


9.4.1 在 工作 簿 内 复制 工作 表 


在 工作 敌 内 复制 工作 表 有 两 种 情况 ， 分 别 是 复制 到 指定 工作 表 之 前 和 复制 到 指定 工作 表 
之 后 。 
1. 复制 到 指定 工作 表 之 前 

【 例 9.17】 将 “工资 表 ” 复 制 到 “考勤 表 ” 之 前 ， 具 体操 作 命 令 如 下 。 


Sub 复制 到 指定 工作 表 之 前 () 
Sheets ("工资 表 ") .Copy before:=Sheets ("考勤 表 ") 
End Sub 


【提示 】〗 执 行 复制 时 ， 产 生 的 新 表 表 名 为 “工资 表 (2)”， 如 果 再 执行 一 次 该 程序 ， 产 生 的 新 表 表 名 为 
“工资 表 (3)”， 以 此 类 推 。 
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2. 复制 到 指定 工作 表 之 后 
【 例 9.18】 将 “工资 表 ” 复 制 到 “考勤 表 ” 之 后 ， 具 体操 作 命 令 如 下 。 
Sub 复制 到 指定 工作 表 之 后 () 


Sheets ("工资 表 ") .Copy after:=Sheets ("考勤 表 ") 
End Sub 


运行 上 述 程序 可 以 在 “考勤 表 ” 后 面 增加 “工资 表 ” 的 副本 ， 如 图 9-9 所 示 。 


| 伪 和 crosoft Visual Basic for Applications - 新 建 Hicrosoft Excel 工作 表 . xls 对 
性 文件 昌 。” 笑 澡 昌 ”视图 插入 相 式 (QO) 调式 (D) 运行 (R) 工具 由。 外接 程序 (A) 窗口 W; 
司 攻 抽 JY PH 和 于 守 @ 行 4. 列 1 
通用 ) 了 | 市 到 指定 工作 表 之 前 


Sub 复制 到 指定 工作 表 之 后 0 
st 工具 Copy after:=Sheets ("考勤 表 ”) 


[an 月 份 考 靳 表 二 老 靳 表 | 工资 到 (2) 人工 资 表 J 
图 9-9 复制 到 指定 工作 表 之 后 


由 在 工作 答 间 复制 工作 表 
i 
| 
| 
| 
| 
| 


在 工作 短 间 复制 工作 表 分 为 两 种 情况 ， 分 别 是 复制 到 指定 工作 德 和 复制 到 新 建 工作 短 。 
1. 复制 到 指定 工作 得 

【 例 9.19 将 工作 表 “4 月 份 考勤 表 ” 复 制 到 “第 一 季度 考勤 .xlsx” 工 作 簿 中 的 第 3 个 工 
作 表 后 ， 具 体操 作 命令 如 下 。 


Sub 复制 到 指定 工作 适 () 
Sheets ("4 月 份 考勤 表 ") .Copy after:=Workbooks ("第 一 季度 考勤 .xlsx") .Sheets (3) 
End Sub 


2. 复制 到 新 建 工 作 短 
【 例 9.20】 将 工作 表 “ 考 勤 表 ”复制 到 一 个 新 的 工作 簿 中 ， 具 体操 作 命令 如 下 。 
Sub 复制 到 新 的 工作 适 () 
Sheets ("考勤 表 ") .Copy 
End Sub 


【提示 】 复 制 的 目标 工作 簿 必须 处 于 打开 状态 。 
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[ 励 呈 将 工作 表 另存 为 工作 科 


如 果 要 把 一 个 工作 短 中 的 所 有 工作 表 分 别 另 存 为 一 个 工作 簿 文件， 需要 用 到 工作 表 对 和 象 
的 “复制 ”和 工作 夭 的 “另存 为 ”属性 。 

【 例 9.21】 将 工作 簿 中 的 4 个 工作 表 分 别 保存 为 4 个 独立 的 工作 短文 件 ， 存 放 到 D 盘 ， 
生成 的 工作 短 名 和 原来 的 工作 表 名 相同 ， 具 体操 作 命 令 如 下 。 


Sub 工作 表 另存 工作 短 () 
Dim x Rs Workbook “' 设 置 x 为 工作 敌对 象 变量 
Set x = ActiveWorkbook  ' 把 当前 工作 等 赋予 变量 x 
Dim y As Integer "声明 Y 为 整 型 变量 ， 用 于 表示 工作 短 中 工作 表 的 索引 号 
For y = 1 To x.Worksheets.Count ' 设 置 循环 范围 为 当前 活动 工作 短 中 的 所 有 工作 表 
x.Worksheets (y) .Copy “复制 工作 表 
ActiveWorkbook.SaveAs Filename:="D:\ excel 2010\" & x.Worksheets (y) .Name 
(a 
' 将 新 建 的 工作 短 另 存 到 D 盘 ， 并 且 名 称 与 工作 表 名 称 相同 
ActiveWindow.Close “' 关 闭 当前 窗口 ， 即 新 建 的 工作 短 
Next y 
End Sub 


运行 上 述 程序 后 ， 即 可 将 4 个 工作 表 分 别 保存 在 Di\excel 文件 夹 中 ， 如 图 9-10 所 示 。 


术 柜 中 查看 中 收工 具 中 帮助 0 
久 PDas EC vx [Hl- SY 


> 
9 
加 | -| 


局 bl 圭一 ee 
© THs 国治 Pass 
谨 共享 此 但 天 ln 


9-10 ”将 工作 表 另 存 为 工作 乱 


9.5 
删除 工作 表 


在 工作 表 不 需要 的 情况 下 ， 可 以 将 其 删除 。 本 节 将 详细 介绍 工作 表 删 除 的 操作 方法 和 技巧 。 
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在 Excel 中 删除 工作 表 的 方法 通常 是 在 工作 表 标 签 上 单 击 鼠标 右键 ， 在 弹出 的 快捷 菜单 
中 选择 【删除 】 菜 单 命 令 。 同 时 也 可 以 使 用 VBA 中 工作 表 对 象 的 Delete 方法 ， 实 现 删除 工 
作 表 的 操作 。 

【 例 9.22】 删 除 工作 表 “ 工 资 表 ” 具体 操作 命令 如 下 。 

Sub 删除 指定 工作 表 () 


Sheets (" 工 资 表 ") .Delete 
End Sub 


运行 上 述 程序 后 ， 系 统 会 弹出 提示 用 户 确认 删除 的 对 话 框 ， 如 图 9-11 所 示 。 单 击 【删除 】 
按钮 ， 即 可 删除 指定 工作 表 。 


【提示 】〗 删 除 后 要 保证 工作 短 中 至 少 保留 一 个 工作 表 ， 和 否则 会 弹出 删除 工作 表 时 的 错误 提示 信息 ， 如 图 
9-12 所 示 。 


区 了 [恒生 ET 和 

Sob | | 
heets (Shoet Delete 

End sob 


上 要 抽 除 的 工作 表 中 可 能 存在 数据 。 加 果 要 永久 姓 队 这些 梁 据 ， 清 控 “ 骨 除 ”。 
王 酷 一 ] [了 测 


图 9-11 确认 删除 提示 信息 图 9-12 删除 工作 表 时 的 错误 提示 


在 执行 工作 表 删 除 时 ， 可 以 使 用 VBA 程序 检测 是 否 删除 成 功 ， 这 主要 是 通过 单 击 【 删 
除 】 或 【取消 】 按 钮 时 返回 的 Boolean 类 型 值 决定 的 。 

【 例 9.23】 删 除 “ 工 资 表 ”， 并 执行 删除 检测 ， 返 回 提示 信息 ， 具 体操 作 命令 如 下 。 

Sub 检测 是 否 成 功 删除 指定 工作 表 () 


Dim x As Boolean 
x = Worksheets ("工资 表 ") .Delete 
If x = True Then 
MsgBox "删除 表格 操作 成 功 完成 ! "，vbInformation 
Else 
MsgBox "删除 表格 操作 被 取消 ! "， vbInformation 
End If 
End Sub 
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命令 执行 后 ， 弹 出 删除 提示 框 ， 单 击 【 取 消 】 按 钮 ， 弹 出 取消 删除 提示 信息 ， 如 图 9-13 
所 示 ; 单 击 【删除 】 按 钮 ， 弹 出 删除 表格 成 功 提示 框 ， 如 图 9-14 所 示 。 


了 icrosoft Ezcel 国 


图 9-13 ”取消 删除 提示 信息 图 9-14 ”成功 删除 提示 信息 


另外 ， 在 删除 工作 表 时 ， 用 户 完全 可 以 取消 弹出 提示 用 户 确认 删除 的 对 话 框 ， 具 体操 作 
命令 如 下 。 


Sub 不 显示 确认 删除 的 对 话 框 () 
Application.DisplayAlerts = False “' 禁 止 应 用 程序 显示 警告 和 消息 功能 
For x = 1 To Worksheets.Count 
Worksheets ("工资 表 ") .Delete 
Application.DisplayAlerts = True ' 恢 复 应 用 程序 显示 警告 和 消息 功能 
Next x 
End Sub 


Application 对 象 的 DisplayAlerts 属性 用 于 指示 在 宏 运行 时 Excel 是 否 显示 特定 的 警告 或 
消息 对 话 框 ， 其 默认 值 为 True。 


9.5.2 删除 未 选中 的 工作 表 


如 果 要 保留 当前 活动 的 所 有 工作 表 ， 而 删除 其 他 未 选中 的 工作 表 ， 具 体操 作 命 令 如 下 。 
Sub 删除 未 选中 的 工作 表 () 


Dim x As Integer 
Dim y As Integer 
x = ActiveWindow.SelectedSheets.Count ' 确 定 当前 活动 窗口 中 选中 工作 表 的 数量 
A ctiveWindow.SelectedSheets.Move before:=Sheets (1) 
' 将 当前 选中 的 所 有 工作 表 移动 到 最 前 面 
Application.DisplayAlerts = False 
For y = Sheets.Count To x + 1 Step -1 
"设置 循环 范围 为 从 后 到 前 ， 即 从 最 后 一 个 工作 表 到 第 x+1 个 工作 表 之 间 的 所 有 工作 表 
Worksheets (y) .Delete 
Next Y 
Application.DisplayAlerts = True 
End Sub 


这 段 程序 的 功能 是 先 将 窗口 中 选中 的 工作 表 移 动 到 最 前 面 ， 然 后 利用 循环 语句 删除 其 后 
面 的 工作 表 ， 即 实现 了 删除 未 选中 的 工作 表 的 功能 。 
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在 工作 表 不 使 用 的 情况 下 ， 可 以 将 其 隐藏 。 本 节 将 详细 介绍 工作 表 隐 藏 的 操作 方法 和 技巧 。 


9.6.1 隐藏 工作 表 


隐藏 工作 表 包括 隐藏 一 个 工作 表 和 隐藏 多 个 工作 表 ， 用 户 也 可 以 按照 指定 的 条 件 进行 隐藏 。 
1. 隐藏 一 个 工作 表 

【 例 9.24】 利 用 VBA 将 已 有 工作 表 “ 工 资 表 ”隐藏 ， 具体 操作 命令 如 下 。 

Sub 隐藏 一 个 工作 表 () 


Sheets ("工资 表 ") .Visible = 0 ' 指 工作 表 的 显示 属性 
End Sub 


Visible 是 工作 表 对 象 的 属性 ， 当 其 值 为 “0” 或 “xlSheetHidden” 时 ， 会 将 工作 表 隐 藏 ， 
但 此 时 可 以 在 工作 簿 中 选择 【开始 】>【 格 式 】>【 取 消 隐藏 工作 表 】 菜 单 命 令 来 取消 该 工 
作 表 的 隐藏 。 如 果 将 Visible 的 值 设 为 “2” 或 “xlSheetVeryHidden”， 则 会 将 工作 表 彻 底 隐藏 ， 
并 且 在 工作 簿 中 通过 选择 【开始 】>【 格 式 】>【 取 消 隐 藏 工作 表 】 菜 单 命令 ， 也 无 法 取消 
该 工作 表 的 隐藏 。 


2. 隐藏 多 个 工作 表 
【 例 9.25】 将 工作 表 “ 工 资 表 ” 和 “考勤 表 ” 隐 藏 ， 具 体操 作 命令 如 下 。 


Sub 隐藏 多 个 工作 表 () 
Sheets (Array(" 工 资 表 "， "考勤 表 ") ) .Visible = 0 
End Sub 


3. 按 指定 条 件 隐藏 


利用 循环 语句 可 以 判断 出 满足 特定 条 件 的 工作 表 ， 并 对 其 实施 隐藏 操作 。 
【 例 9.26】 将 工作 憩 中 “工资 表 ” 之 外 的 所 有 工作 表 隐 藏 ， 具体 的 操作 命令 如 下 。 
Sub 指定 条 件 隐 藏 () 


Dim x As Integer 
For x = 1 To Sheets.Count ' 设 置 变 量 x 在 所 有 工作 表 之 间 循 环 
If Sheets (x) .Name <> "工资 表 " Then “判断 工作 表 的 名 称 是 否 为 “工资 表 ”， 若 不 是 则 执 
行 ' 下 一 条 语句 
Sheets (x) .Visible = 0 "符合 条 件 判断 条 件 的 工作 表 隐藏 
End If 
Next x 
End Sub 
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9.6.2 取消 工作 表 的 隐藏 


取消 工作 表 的 隐藏 也 是 通过 设置 Visible 属性 值 来 实现 的 。 
【 例 9.27】 取 消 单个 工作 表 “ 工 资 表 ”的 隐藏 ， 具 体操 作 命令 如 下 。 


Sub 取消 单个 工作 表 的 隐藏 () 
Sheets (" 工 资 表 ") .Visible = -1 
End Sub 


【 例 9.28】 取 消 工作 表 “ 工 资 表 ” 和 “考勤 表 ” 的 隐藏 ， 具 体操 作 命令 如 下 。 


Sub 取消 多 个 工作 表 的 隐藏 () 
Sheets (Array(" 工 资 表 "， "考勤 表 ") ) .Visible = -1 
End Sub 


【 例 9.29】 取 消 工作 簿 中 所 有 工作 表 的 隐藏 ， 具 体操 作 命 令 如 下 。 
Sub 取消 所 有 工作 表 的 隐藏 () 


Dim x As Integer 
For x = 1 To Sheets.Count 
Sheets (x) .Visible = -1 
Next x 
End Sub 


这 里 用 一 个 循环 来 设置 每 一 个 工作 表 的 显示 ， 即 属性 值 为 -1， 可 以 逐个 取消 工作 表 的 陷 
藏 。 如 果 将 Visible 的 属性 值 设置 为 “xlSheetVisible”， 也 可 以 将 工作 表 显 示 出 来 。 
9.7 
Eg 
提供 工作 表 的 安全 性 


在 Excel 基本 操作 中 ， 用 户 可 以 对 工作 表 实施 保护 ， 以 避免 工作 表 中 的 已 有 数据 被 修改 。 


[a 保护 单个 或 所 有 工作 表 


保护 工作 表 可 以 使 用 功能 区 【审阅 】 选 项 卡 中 【更 改 】 组 的 【保护 工作 表 】 工 具 按 钮 ， 
在 打开 的 【保护 工作 表 】 对 话 框 中 进行 保护 工作 表 的 操作 ， 如 图 9-15 所 示 。 
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利用 VBA 代码 设置 保护 工作 表 的 操作 也 很 简单 ， 主 要 分 为 以 下 两 种 。 


1. 保护 单个 工作 表 


【 例 9.30】 保护 单个 工作 表 “ 工 资 表 ”， 具 体操 作 命 令 如 下 。 


Sub 保护 单个 工作 表 () 


Worksheets ("工资 表 ") .Protect Password:=abc123 


End Sub 


代码 分 析 : 其 中 使 用 了 工作 表 对 象 的 Protect 方法 设置 工作 表 的 保护 ， 并 将 Password 密 


码 属性 值 设 置 为 “abc123”。 


【提示 】 在 设置 保护 密码 时 ， 如 果 使 用 的 是 字母 ， 应 注意 区 分 字母 的 大 小 写 。 


2. 保护 所 有 工作 表 


【 例 9.31】 同 时 为 工作 敌 中 的 所 有 工作 表 设 置 保 护 , 并 指定 保护 密码 , 具体 操作 命令 如 下 。 


Sub 保护 所 有 工作 表 () 


Dim x As Integer 


Worksheets (x) .Protect Password:=abc123 


Next x 
End Sub 
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图 9-15 【保护 工作 表 】 对 话 框 


| 解除 工作 表 的 保护 


利用 VBA 也 可 以 很 轻松 地 解除 工作 表 的 保护 。 
【 例 9.32】 解 除 工 作 表 “工资 表 ” 的 保护 ， 具 体操 作 命令 如 下 。 


Sub 工作 表 解 除 保护 () 


Sheets ("工资 表 ") .Unprotect Password:=abc123 


End Sub 
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与 Protect 方法 相对 应 ， 工 作 表 的 Unprotect 方法 是 解除 工作 表 的 保护 。 
如 果 将 工作 敌 中 的 所 有 工作 表 设 置 了 同样 的 保护 密码 ， 则 用 户 可 以 利用 VBA 一 次 解除 
所 有 工作 表 的 保护 ， 具 体操 作 命 令 如 下 。 


Sub 解除 所 有 工作 表 保护 () 
Dim i As Integer 
For i = 1 To Sheets.Count 
Sheets (i) .Unprotect Password:=abc123 
Next i 
End Sub 


9.8 
综合 实战 1 一 一 限制 工作 表 的 滚动 区 域 


通过 设置 Worksheet 对 象 的 ScrollArea 属性 可 以 限制 工作 表 人 允许 滚动 的 区 域 。 当 设置 了 
工作 表 滚动 区 域 后 ， 用 户 不 能 选 定 滚动 区 域 之 外 的 单元 格 ， 同 时 ， 工 作 表 的 一 些 相应 功能 也 
可 能 被 禁止 ， 例 如 选中 整 行 或 整 列 等 。 

可 以 通过 【属性 】 窗 口 和 VBA 代码 来 实现 Worksheet 对 象 的 ScrollArea 属性 的 设置 具 
体内 容 介 绍 如 下 。 

1. 在 【属性 】 窗 口中 设置 

通过 修改 VBA 界面 工作 表 的 【属性 】 信 息 ， 可 以 限制 工作 表 的 滚动 区 域 ， 具 体操 作 步 骤 如 下 。 

@ 贡 在 工作 秒 中 ， 首 先 确定 允许 滚动 的 区 域 ， 这 里 将 工作 表 Sheetl 中 的 “B3:K10” 单元 
格 区 域 设 置 为 允许 滚动 的 区 域 ， 如 图 9-16 所 示 。 

@3 按 Alt+F11 组 合 键 ， 打开 VBA 代码 窗口 ， 在 【工程 资源 管理 器 】 窗 口中 选中 “Sheetl 
选项 ， 然 后 在 其 【属性 】 窗 口中 切换 到 【 按 字母 序 】 选 项 卡 ， 在 “ScrollArea ”文本 框 中 输入 
“$B$3:SK$10 ， 如 图 9-17 所 示 。 
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9-16 设置 允许 滚动 的 区 域 图 9-17 设置 【属性 】 窗 口 
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(名 返回 工作 表 ， 此 时 即 可 将 “C5: H14” 单 元 格 区 域 设 置 为 允许 滚动 的 区 域 ， 而 区 域 之 外 
的 单元 格 则 被 限制 。 
2. 利用 VBA 代码 设置 


将 工作 表 Sheetl 中 的 “B3: K10” 单 元 格 区 域 设置 为 允许 滚动 的 区 域 ， 具 体 的 操作 步骤 
如 下 。 


@ 册 打开 VBA 代码 窗口 ， 在 【工程 资源 管理 器 】 窗 口中 选中 “Sheetl ”选项 ， 在 右 侧 代码 
窗口 中 输入 如 下 程序 代码 。 
Private Sub Workbook Open () 


Worksheets (1) .ScrollArea = " B3: K10" 
End Sub 


@ 到 返回 工作 表 ， 即 可 将 “B3: K10” 单 元 格 区 域 设置 为 允许 滚动 的 区 域 。 当 再 次 打开 该 工 
作 秒 时 ， 也 不 必 重 新 设置 工作 表 的 滚动 区 域 . 


9.9 
综合 实战 2 一 一 禁止 查看 指定 工作 表 


对 Excel 文件 中 的 一 些 重要 内 容 ， 为 防止 他 人 查看 或 更 改 ， 用 户 可 以 将 其 所 有 的 工作 表 
设置 为 禁止 查看 的 工作 表 。 

将 已 有 工作 德 中 的 “财务 明细 表 ” 设 置 为 禁止 查看 ， 以 确保 “财务 明细 表 ” 的 信息 安全 ， 
具体 操作 步骤 如 下 。 


@ 贡 在 VBA 左 侧 工程 列表 中 选择 要 禁止 查看 的 工作 表 ， 双 击 打开 其 代码 窗口 ， 并 输入 以 下 
禁止 查看 “财务 明细 表 ” 工 作 表 的 代码 命令 ， 如 图 9-18 所 示 。 


Private Sub Worksheet Activate() 

If ActiveSheet.Name Like "财务 明细 表 " Then 

"如 果 当 前 活动 工作 表 的 名 称 为 “财务 明细 表 ” 则 执行 下 一 条 语句 。 
Sheets (" 加 班 明 细 表 ") - Select 

" 当 活 动工 作 表 为 “财务 明细 表 ” 工 作 表 时 ， 选 中 工作 表 “ 加 班 明细 表 ” 
End If 

End Sub 


全 到 运行 上 述 程序 后 ,返回 工作 表 中 ， 先 选择 除 工作 表 “ 财 务 明 细 表 ”之 外 的 任意 一 个 工作 

表 ， 然 后 当 再 次 选中 工作 表 “ 财 务 明细 表 ” 时 ， 即 可 驱动 事件 程序 的 运行 ， 无 法 选中 该 工作 表 。 
代码 说 明 : Worksheet_Activate: 当 工 作 表 成 为 活动 工作 表 时 ， 驱 动 事件 程序 运行 。 
Like 为 字符 串 比较 运算 符 ， 当 字符 串 匹 配 样本 时 返回 True。 
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在 日 常 使 有 中， 有 时 需要 对 某 个 工作 表 中 的 某 个 区 域 进行 保护 。 

保护 工作 表 中 A 列 的 所 有 单元 格 ， 当 选择 A 列 单元 格 进行 编辑 时 会 自动 弹出 保护 密码 
输入 对 话 框 ， 以 验证 是 否 有 编辑 权限 ， 有 具体 操作 命令 如 下 。 

在 VBA 代码 窗口 中 输入 如 下 程序 代码 ， 如 图 9-19 所 示 。 


Private Sub Worksheet SelectionChange (ByVal Target As Range) 
Dim pass 
If Target.Columns.Count > 1 Then 
' 判 断 选择 的 是 否 为 B 列 ， 如 果 不 是 则 维持 原来 的 选择 动作 ， 即 RctiveCe11.Select 
ActiveCell.Select 
Else 
If Target.Column = 1 And Columns ("A:A") .Locked = True Then 
' 判 断 如 果 是 A 列 并 且 单 元 格 已 锁定 ,执行 下 面 的 语句 。 这 里 判断 Columns ("A:A") .Locked=True 
的 目的 是 防止 选择 A 列 单元 格 时 不 停 的 弹出 输入 密码 提示 框 
pass = InputBox ("欢迎 访问 ， 请 输入 第 A 列 保护 密码 "，" 录 入 提示 ") 
' 把 InputBox 对 话 框 中 输入 的 密码 赋予 变量 pass 
If pass = 1 Then 
' 如 果 输 入 的 解除 保护 密码 正确 ， 则 运行 解除 工作 表 保 护 (ActivesSheet .Unprotect 
Password:=123456) 和 取消 A 列 锁 定 (Columns ("A:A") .Locked = False) 的 语句 ， 最 后 再 保护 工 
作 表 (Sheets ("第 1 节 ") .Protect Password:=111111) 
ActiveSheet .Unprotect Password:=111111 
Columns ("A:A") .Locked = False 
Sheets ("第 1 节 ") .Protect Password:=111111 
End If 
End If 
End If 
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End Sub 
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9-19 为 指定 区 域 设置 密码 保护 
【提示 】〗 Worksheet_SelectionChange 是 指 当 工作 表 内 单元 格 发 生 选 择 改变 时 驱动 程序 运行 的 事件 。 


了 该 程序 后 ， 当 选择 A 列 单元 格 时 ,系统 则 弹出 如 图 9-20 所 示 的 输入 密码 提示 对 话 框 。 
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9-20 ”弹出 输入 密码 对 话 框 
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技巧 1: 快速 选择 默认 的 工作 表 
如 果 要 快速 地 选中 默认 工作 表 (如 “Sheet1”)， 则 可 通过 以 下 命令 进行 操作 。 
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Sub 选中 指定 工作 表 () 
Sheet1.Select 
End Sub 


技巧 2: 禁止 随意 修改 工作 表 的 名 称 


在 Excel 中 经 常会 用 到 函数 调用 工作 表 名 ， 所 以 一 般 禁止 随意 更 改 已 规划 好 的 工作 表 ， 
下 面 就 来 介绍 禁止 更 改 工作 表 名 称 的 方法 。 
例如 ， 禁 止 更 改 工 作 簿 中 的 “考勤 表 ” 工 作 表 ， 具 体 VBA 代码 如 下 。 
在 Excel 的 基本 操作 中 ， 可 以 通过 保护 工作 簿 的 方法 来 禁止 工作 表 的 名 称 被 更 改 。 
Private Sub Worksheet SelectionChange (ByVal Target As Range) 
If Me.Name <> "考勤 表 " Then 
Me .Name = "考勤 表 " 
MsgBox "您 好 ， 该 工作 表 名 称 禁止 更 改 ! "， vbExclamation 


End If 
End Sub 


技巧 3: 将 工作 表 置 为 活动 工作 表 

在 使 用 Excel 时 ， 如 果 想 要 将 其 他 特定 表 定 义 为 当前 的 活动 工作 表 ， 可 以 利用 以 下 VBA 
代码 来 完成 。 

将 工作 表 “ 工 资 表 ” 定 义 为 当前 活动 工作 表 ， 具 体操 作 命 令 如 下 。 

Sub 设置 活动 工作 表 () 

Worksheets ("工资 表 ") .Activate 

End Sub 

其 中 Activate 是 工作 表 对 象 的 方法 ， 用 于 将 工作 表 置 于 活动 状态 。 

如 果 工 作 表 使 用 的 是 默认 工作 表 名 (如 “Sheet1”), 可 以 使 用 以 下 命令 使 其 成 为 活动 工作 表 。 

Sub 设置 活动 工作 表 () 


Sheet1.RActivate 
End Sub 


使 用 Select 和 Activate 操作 同一 张 工作 表 时 ， 二 者 实现 的 功能 是 一 样 的 ， 都 是 将 单个 工 
作 表 选中 或 激活 。 它 们 的 区 别 在 于 ，Select 可 以 同时 选择 多 张 工作 表 ， 而 Activate 只 能 设置 
- 张 工 作 表 为 活动 状态 。 
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第 10 章 Excel 单元 格 相 关 操 作 


通过 本 章 的 学 习 ， 可 以 使 读者 掌握 Excel 单元 格 的 相关 操作 ， 如 单元 格 的 表示 、 选 择 、 
输入 、 引 用 及 删除 等 内 容 。 这 些 内 容 在 编程 过 程 中 会 经 常用 到 ， 熟 练 掌握 单元 格 操作 方法 对 
-个 Excel VBA 使 用 者 来 说 至 关 重 要 。 


10.1 
单元 格 的 选择 


单元 格 的 选择 是 操作 单元 格 的 前 提 ， 其 中 包括 选择 全 部 单元 格 、 选 择 单个 单元 格 或 选择 
单元 格 区 域 等 。 


| 选择 单个 单元 格 

选择 单个 单元 格 是 最 常用 的 ， 在 Excel VBA 中 常 使 用 Range 和 Cells 来 表示 单元 格 ， 另 
外 还 可 以 使 用 一 种 简化 的 方法 来 表示 单元 格 ， 下 面 分 别 对 其 介绍 。 
1. Range 表示 单个 单元 格 

Range 可 以 代表 工作 表 中 的 某 一 个 单元 格 、 某 一 行 、 某 一 列 或 某 一 个 选 定 区 域 等 。 

(1) 使 用 Range (单元 格 地 址 〉 的 形式 来 表示 某 个 单元 格 。 例 如 选中 单元 格 A5， 则 可 表 
示 为 : 


Range ("A5") .Select 

这 里 要 注意 ， 单 元 格 要 加 双 引 号 。 

(2) 使 用 Range(" 列 标 "& 行 数 ) 的 形式 表示 ， 如 单元 格 A5 表示 为 : 

Range ("A"g&"5") .Select 

这 里 要 注意 ， 列 标 要 加 双 引 号 ， 且 要 用 “&” 把 列 标 和 行 号 连接 起 来 。 

(3) 如 果 需 要 选中 定义 名 称 的 单元 格 或 单元 格 区 域 ， 则 可 使 用 Range ("定义 的 名 称 ") 
的 形式 来 表示 ， 并 且 要 注意 其 中 双 引号 的 使 用 。 如 表示 已 定义 名 称 为 “月 份 ” 的 单元 格 : 

Range ("月 份 ") 
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2. Cells 表示 单个 单元 格 
Cells (rowcolumn) 代表 单个 单元 格 ， 其 中 row 为 行 号 ，column 为 列 号 数 。 
【 例 10.1】 使 用 Cells 表示 单个 单元 格 A5， 具 体操 作 方法 如 下 。 
使 用 Cells 表示 单个 单元 格 的 方式 有 以 下 3 种 。 
(1) 因为 单元 格 的 行 数 为 3， 列 数 为 2， 所 以 用 以 下 命令 可 以 实现 。 
Cells (3,2) 
(2) 使 用 “Cells〈 行 号 ， 列 标 )” 的 表示 方法 ， 命 令 如 下 。 
CSS(SAREBAD) 
(3) 使 用 “Cells (单元 格 序 号 )” 的 表示 方法 ， 命 令 如 下 。 
Cells (514) 
【提示 〗 对 于 Excel 工作 表 中 的 256 ( 列 ) *65536 ( 行 ) 个 单元 格 ， 每 个 单元 格 都 有 其 对 应 的 序号 。 具 
体 的 对 应 关系 是 ， 单 元 格 序号 = ( 行 号 -1) *256+ 列 号 。 
根据 单元 格 的 对 应 序号 的 计算 方法 , 在 工作 表 的 前 20 行 中 显示 当前 单元 格 序号 , 其 程序 
Sub 显示 单元 格 序号 () 
For T= 1 T0256 


For J=1 To 20 
Cellotjr T= (J = Tr 206 77 


Next J 
Next I 
End Sub 
运行 上 述 程序 后 ， 即 可 在 指定 单元 格 区 域内 显示 其 对 应 的 单元 格 序 号 ， 如 图 10-1 所 示 。 
国 | 日 9 -wwrlv 工 fF 逢 1 - Microsoft Excel EN- 
经 NE | FTR | oO 
JE 
项 i -县 
ES 
无 | 1284 Se 
i 3 
生 5 
260 261 
516 517 
772 773, 
g2E 1029 
1285 
1540 1541 
5 1796 1797 
2052 2053 
2308 2309 
2564 2565 
2820 2821 
3076 30TT 
[1] 2332 2333 
15| 3585 a 3587 3588 3589 
MM AW] Sheeti .Sheetz Snoty ve 人 [可 
ET EE FC EE 


图 10-1 显示 当前 单元 格 序号 
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3. 单元 格 表示 的 简化 方法 
除了 使 用 Range 和 Cell 来 表示 单元 格外 ,还 可 以 使 用 一 些 简化 的 方法 来 表示 单元 格 。 单 
元 格 的 简化 表示 方式 为 [单元 格 地 址 ]。 
例如 ， 选 中 当前 工作 表 中 的 单元 格 A5， 则 可 使 用 如 下 代码 : 
Sub 单元 格 简化 方法 () 


[A5] .Select 
End Sub 


| 选择 全 部 单元 格 


在 工作 表 中 ， 可 以 单 击 Excel 工作 表 中 “ 行 号 ”和 “ 列 标 ”交汇 处 的 【全 选 】 按 钮 国 到 ， 
或 按 Ctrl+A 组 合 键 来 选择 工作 表 中 所 有 的 单元 格 ， 如 图 10-2 所 示 。 


M 4bM| Sheetl, Sheet2, Sheet3 一 呈 ns | 


图 10-2 全 选 工作 表 所 有 单元 格 


如 果 要 利用 Excel VBA 语句 来 完成 选择 工作 表 中 的 全 部 单元 格 ， 可 以 通过 以 下 代码 来 实现 。 
Sub 选择 全 部 单元 格 1 () 

Cells.Select 
End Sub 


其 中 Cells 是 所 有 单元 格 的 集合 。 
除 此 之 外 ， 还 可 以 使 用 以 下 两 种 代码 选择 工作 表 的 全 部 单元 格 。 
Sub 选择 全 部 单元 格 2 () 


Rows .Select 
End Sub 


Sub 选择 全 部 单元 格 3 () 
Columns .Select 
End Sub 


其 中 Rows 和 Columns 分 别 是 所 有 行 和 列 的 集合 。 
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的 二 选择 指定 的 单元 格 


当 需 要 表示 具体 某 个 工作 表 中 的 单元 格 时 ， 可 以 在 单元 格 表示 方法 前 添加 具体 的 工作 表 
名 称 ， 并 用 “.” 来 表示 从 属 关系 ， 命 令 格式 如 下 : 

Worksheets ("工作 表 名 称 ") .Range ("单元 格 地 址 ") 

如 果 需 要 表示 某 个 工作 德 中 某 个 工作 表 中 的 某 个 单元 格 ， 则 可 青 添加 上 工作 短 的 名 称 。 

Workbook ("工作 簿 的 名 称 ") .Worksheets ("工作 表 名 称 ") .Range ("单元 格 地 址 ") 

除了 以 上 方法 外 ， 还 可 以 先 用 命令 将 指定 工作 表 或 者 工作 籍 设置 为 当前 活动 工作 短 或 工 
作 表 ， 然 后 再 执行 单元 格 选择 操作 。 

【 例 10.2】 选 择 非 活动 工作 表 “ 考 勤 表 ”的 As 单元 格 ， 具 体操 作 命令 如 下 。 


Sub 选择 非 活动 工作 表单 元 格 A5 () 
Sheets ("考勤 表 ") .Select 
Range ("A5") .Select 

End Sub 


【提示 】〗 使 用 上 述 方 式 时 必须 先 将 工作 表 设 置 为 当前 活动 工作 表 ， 然 后 再 选择 单元 格 ， 不 能 够 同时 执行 
活动 工作 表 和 选择 单元 格 的 操作 ， 以 下 程序 代码 为 错误 命令 格式 ， 执 行 后 弹出 如 图 10-3 所 示 的 错误 提 
示 信 息 。 

Sub 选择 非 活 动工 作 表 单元 格 A5 () 


Sheets ("考勤 表 ") . Range ("A5") .Select 
End Sub 


) 
Sb 建 币 磋 质 芭 工作 素 弟 元 祝 45 0 
me") haree 157) select 


图 10-3 错误 提示 信息 


10.14 选择 单元 格 区 域 


在 掌握 了 用 Excel VBA 选择 单个 单元 格 后 ， 接 下 来 介绍 如 何 选择 多 个 单元 格 区 域 。 选 择 
多 个 单元 格 区 域 分 为 选择 连续 单元 格 区 域 和 不 连续 单元 格 区 域 。 
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1. 选择 连续 单元 格 区 域 
【 例 10.3 】 选 择 当前 活动 工作 表 的 Al:F10 单元 格 区 域 ， 如 图 10-4 所 示 ， 有 具体 操作 方法 如 下 。 


el EI 


10-4 选择 连续 区 域 
可 以 使 用 多 种 程序 代码 实现 单元 格 区 域 的 选择 ， 介 绍 如 下 。 
(1) 利用 Range〈" 单 元 格 区 域 ") 的 形式 ， 命 令 如 下 。 
Sub 选择 连续 单元 格 方法 1 () 


Range ("Al1:F10") .Select 
End Sub 


区 


(2) 利用 Range《〈" 区 域 的 左上 角 单 元 格 "，" 区 域 的 右 下 角 单 元 格 ") 的 形式 ， 命 令 如 下 。 
Sub 选择 连续 单元 格 方法 2 () 


Range ("R1"，"F10") .Select 
End Sub 


(3) 利用 Range 和 Cells 结合 的 形式 ， 命 令 如 下 。 
Sub 选择 连续 单元 格 方法 3 () 


Range (Cells(1,1), Cells(10,6)).Select 
End Sub 


【提示 】〗Range(Cells(1,1), Cells(10,6)) 是 Cells 方法 用 来 分 别 表示 区 域 的 左上 角 和 右 下 角 单 元 格 的 。 


(4) 利用 中 括号 “[]” 简 化 单元 格 区 域 表 示 ， 命 令 如 下 。 


Sub 选择 连续 区 域 方法 4() 
[A1:F10] .Select 
End Sub 


在 工作 表 中 ， 可 以 通过 选择 行 号 或 列 标 的 方式 来 选择 一 行 或 多 行 、 一 列 或 多 列 ， 可 以 使 
用 Range 来 表示 行 和 列 ， 也 可 以 直接 使 用 Rows 属性 和 Columns 属性 来 表示 。 
【 例 10.4】 选 中 工作 表 中 的 第 5 行 ， 具 体操 作 命令 如 下 。 
Sub 选中 第 5 行 () 
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Range ("5:5") .Select 
End Sub 


【技巧 】 其 中 Range("5:5").Select 可 以 使 用 Rows("5:5").Select 或 Rows(5).Select 替换 。 
【 例 10.5】 选 中 工作 表 中 的 第 5 行 至 第 10 行 ， 具 体操 作 命令 如 下 。 
Sub 选中 第 5 至 10 行 1() 
Range ("5:10") .Select 
End Sub 
【技巧 】 其 中 Range("5:10").Select 可 用 Rows("5:10").Select 蔡 换 。 
【 例 10.6】 选 中 工作 表 中 的 B~E 列 ， 具 体操 作 命 令 如 下 。 


Sub 选中 工作 表 B 到 E 列 () 


Columns("B:E").Select 
End Sub 


【技巧 】 如 果 只 选择 一 列 ， 如 B 列 ， 可 以 写成 Columns("B:B").Select 或 者 Columns(2).Select。 
选中 多 列 的 方式 和 选择 多 行 的 方式 相似 ， 这 里 就 不 再 介绍 。 
2. 选择 不 连续 单元 格 区 域 
不 连续 区 域 是 不 相 邻 的 单元 格 或 单元 格 区 域 。 在 VBA 中 可 以 使 用 Range 对 象 来 表示 不 
连续 的 区 域 ， 也 可 以 使 用 Union 函数 来 完成 多 个 不 连续 区 域 的 选择 。 具 体内 容 介绍 如 下 。 
(1) 利用 Range 对 象 表示 不 连续 区 域 。 
【 例 10.7】 选 择 不 连续 单元 格 Al,A3:D3,A6:F6,Al10:H10， 有 具体 操作 命令 如 下 。 
Sub 不 连续 区 域 () 
Range ("Al,A3:D3,A6:F6,A10:H10") .Select 
End Sub 
【提示 】〗 利用 Range 表示 不 连续 区 域 的 时 候 ， 单 元 格 或 单元 格 区 域 之 间 应 用 “,”( 英 文 输入 法 状态 ) 分 隔 。 
运行 上 述 代 码 ， 即 可 选中 不 连续 区 域 的 单元 格 区 域 ， 如 图 10-5 所 示 。 


IPTTITTET 下 


图 10-5 使 用 Range 选择 不 连续 单元 格 区 域 
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如 果 是 选择 不 连续 的 行 或 列 ， 也 可 以 用 Range 对 象 来 实现 ， 程 序 代码 如 下 。 


Sub 不 连续 行 () 
Range ("3:3,5:6,9:12") .Select 
End Sub 
运行 上 述 程序 后 ， 返 回 工作 表 中 ， 会 看 到 同时 选中 工作 表 的 第 3 行 、 第 5 行 、 第 6 行 和 
第 9~12 行 ， 如 图 10-6 所 示 。 


10-6 使 用 Range 选择 不 连续 的 行 
【提示 】〗 不 能 用 Rows("3:3.5:6,9:12") 来 代替 Range("3:3,5:6,9:12")， 否 则 在 运行 程序 时 会 弹出 如 图 10-7 
所 示 的 错误 提示 信息 。 


[ 硬 肌 二 |] [和 营 生 区 三 到 


my 


EB] 


图 10-7 错误 提示 信息 
当 需 要 选择 不 连续 的 列 时 ， 例 如 选择 C 列 、 第 F 至 晶 列 和 J 列 ， 其 程序 代码 如 下 。 
Sub 选择 不 连续 列 () 
Range ("C:C,F:H, J:J") .Select 
End Sub 
运行 上 述 程序 后 ， 即 可 选择 C 列 、 第 F 至 H 列 和 J 了 列 不 连续 的 单元 格 区 域 ， 如 图 10-8 
所 示 。 
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M| sheerl -Shaat2 hee13, 后 日 
图 10-8 选择 不 连续 的 列 单元 格 区 域 
【提示 】〗 这 里 同样 不 可 以 使 用 Columns("C:C,F:H, J:J") 来 代替 Range("C:C,F:H, JTJ。 


(2) 使 用 Union 函数 选择 不 连续 区 域 。 
如 果 使 用 Union 函数 , 则 是 将 两 个 或 两 个 以 上 的 区 域 组 合成 一 个 范围 。 例 如 , 使 用 Union 
函数 选择 和 上 述 代码 同样 的 不 连续 区 域 ， 其 代码 如 下 。 
Sub 不 连续 区 域 2 () 


Union (Range ("A1"), Range("A3:D3"), Range ("A6:F6"), Range ("R10:H10") ) .Select 
End Sub 


运行 上 述 程序 代码 后 ， 同 样 可 以 选择 如 图 10-5 所 示 的 不 连续 单元 格 区 域 。 


辣 二 四 选择 特定 单元 格 


Excel 的 定位 功能 可 以 选择 特定 单元 格 ， 如 选择 空 值 、 选 择 可 见 单 元 格 等 。 
1. 选择 当前 已 使 用 的 单元 格 

使 用 工作 表 的 UsedRange 属性 可 以 选择 当前 已 使 用 的 单元 格 。 当 前 已 使 用 的 单元 格 是 指 
工作 表 中 已 经 使 用 过 的 单元 格 。 无 论 是 否 存 有 数据 ， 只 要 曾经 使 用 过 都 属于 当前 已 使 用 的 单 
元 格 。 

如 图 10-9 所 示 的 工作 表 中 ，C5:H19 区 域 为 已 使 用 的 单元 格 区域 。 要 选择 该 区 域 ， 其 程 
序 代码 如 下 。 


Sub 当前 已 使 用 区 域 () 
ActiveSheet .UsedRange.Select 
End Sub 
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图 10-9 选择 工作 表 中 已 使 用 的 区 域 
【提示 】〗ActiveSheet 是 指 当前 活动 工作 表 ; ActiveSheet.UsedRange 是 指 当 前 活动 工作 表 中 已 使 用 的 单元 
格 ; UsedRange 属性 只 应 用 于 工作 表 对 象 (Worksheet) ， 它 的 前 面 不 能 是 工作 簿 对 象 (workbook) 或 单 
元 格 对 象 (Range) 。 
运行 上 述 程序 ， 即 可 选择 当前 已 使 用 的 单元 格 区 域 。 
2. 选择 和 指定 单元 格 相 邻 的 区 域 
在 选择 一 个 含有 数据 的 动态 区 域 时 ， 可 以 利用 判断 语句 对 单元 格 逐 个 进行 判断 再 选择 ， 
但 程序 会 变 得 复杂 起 来 。 要 使 选择 相 邻 区 域 变 得 灵活 ， 可 以 使 用 下 面 的 语句 。 
Range ("单元 格 区 域 ") .CurrentRegion.Select 
使 用 下 面 的 语句 ， 可 以 快速 选择 相 邻 的 连续 区 域 ; 
Sub 选中 相 邻 的 连续 区 域 () 


Range ("D8") .CurrentRegion.Select 
End Sub 


【提示 】Range("D8").CurrentRegion 表示 以 D8 为 起 点 的 相 邻 区 域 。 


运行 上 述 程序 ， 即 可 选择 相 邻 的 连续 单元 格 区 域 ， 如 图 10-10 所 示 。 


& TE oe; D E 3 中 H 强权 

选择 单元 档 选择 单 
择 单 元 格 择 单 元 

选择 单元 格 

选择 单元 格 

选择 单元 格 选择 单元 格 

选择 曲 元 | 
选择 单元 格 
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图 10-10 选择 工作 表 中 相 邻 区 域 
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【提示 】 相 邻 区 域 是 指 和 已 有 连续 区 域 的 行 和 列 都 相 邻 的 区 域 。 
3. 选择 区 域 端 点 单元 格 
在 一 个 列 区 域内 ， 想 要 选择 其 中 最 上 方 的 第 一 个 非 空 单元 格 或 最 下 方 非 空 单元 格 ， 可 以 
使 用 “Ctrl+ 方 向 键 ”的 方式 实现 。 例 如 ， 在 如 图 10-11 所 示 的 工作 表 中 ， 如 果 要 快速 选择 F 
列 的 第 一 个 非 空 单元 格 F11， 可 以 在 Fl 中 使 用 Ctrl+ 上 〈 向 下 箭头 ) 来 选择 ， 要 选择 数据 区 
域 右边 的 端点 单元 格 G11， 可 以 在 F11 中 按 Ctrl+ 一 〈 向 右 箭头 ) 来 选择 。 
以 上 功能 在 Excel VBA 中 ， 利 用 Range 对 象 的 End 属性 来 实现 ， 具 体操 作 方 法 如 下 。 
例如 ， 在 如 图 10-11 中 选择 F 列 中 第 一 个 非 空 单元 格 ， 其 程序 代码 如 下 : 
Sub 王 列 第 一 个 非 空间 元 格 () 
If Range("F1") = "" Then 
Range ("F1") .End (xlDown) .Select 
Else 
Range ("Fl1") .Select 


End If 
End Sub 


【提示 】If Range("F1") = "的 功能 是 ， 如 果 F1 的 值 为 空 ; Range("F1").End(xIDown) 相 当 于 在 Fl 中 按 
Ctrl+ | 〈 向 下 箭头 )。 
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图 10-11 选择 F 列 第 一 个 非 空 单元 格 
【提示 】End 参数 与 方向 键 对 照 关 系 如 下 。 
@ End(xlup) 相 当 于 Ctrl+ 1 (向 上 箭头 ) 。 
@ End(xldown) 相 当 于 Ctrl+ | (向 下 箭头 ) 。 
@ End(xltoleft) 相 当 于 Ctrl+<- (向 左 箭头 )。 
@ End(xltoright) 相 当 于 Ctrl+ 一 (向 右 箭 头 ) 。 
如 果 要 选择 F 列 最 后 一 个 非 空 单元 格 ， 其 程序 代码 如 下 : 


Sub 选择 FF 列 最 后 一 个 非 空 单元 格 () 
Range ("F2565") .End (xlUp) .Select 
End Sub 
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【提示 】〗Range("F2565").End(xlIUp): F 列 最 后 一 个 非 空 单元 格 需要 从 F 列 最 后 一 个 单元 格 向 上 查找 。 


运行 上 述 程序 后 ， 即 可 选择 F 列 数据 区 域 中 最 后 一 个 非 空 单元 格 F14。 
如 果 要 选择 F 列 数据 区 域 下 的 第 一 个 空白 单元 格 ， 可 以 使 用 以 下 程序 代码 : 
Sub 数据 区 域 下 第 一 个 空白 单元 格 () 


Dim i Rs Integer 
i = Range ("F2821") .End (x1lUp) .Row + 1 


' 该 空白 单元 格 的 行 数 等 于 F 列 最 后 一 个 非 空 单元 格 的 行 数 加 1，Row 是 指 单元 格 的 行 数 
Range("E" & i) .Select 
End Sub 
运行 上 述 程序 后 ， 即 可 选择 F 列 数据 区 域 下 的 第 一 个 空白 单元 格 F15。 
如 果 要 选择 第 9 行 最 左边 一 个 非 空 单元 格 ， 可 使 用 如 下 程序 代码 ; 
Sub 选择 第 9 行 最 左边 一 个 非 空 单元 格 () 
If Range("A9") = "" Then 
Range ("A9") .End (xlToRight) .Select 
Else 
Range ("A9") .Select 


End If 
End Sub 


运行 上 述 程序 后 ， 即 可 选择 第 9 行 最 左边 一 个 非 空 单元 格 C9。 

若 要 选择 第 9 行 最 右边 一 个 非 空 单元 格 ， 可 以 使 用 下 面 的 程序 代码 : 

Sub 选择 第 9 行 最 右边 一 个 非 空 单元 格 () 

Range ("IV9") .End (xl1ToLeft) .Select 

End Sub 

运行 上 述 程序 , 即 可 选择 工作 表 中 第 9 行 最 右边 的 一 个 非 空 单元 格 C9 (第 9 行 只 有 一 个 
单元 格 有 数据 )。 
4. 选择 特定 内 容 单元 格 

当 需 要 选择 如 常量 、 公 式 等 特定 单元 格 时 ， 可 以 选择 功能 区 【开始 】>【 查 找 和 选择 】 
>【 定 位 条 件 】 菜 单 命令 ， 打 开 【 定 位 条 件 】 对 话 框 ， 如 图 10-12 所 示 ， 从 中 选择 要 定位 的 
条 件 ， 就 可 以 选择 特定 的 单元 格 。 


图 10-12 【定位 条 件 】 对 话 杠 
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如 果 在 Excel VBA 中 需要 选择 特定 的 单元 格 ， 可 以 使 用 Range 对 象 的 SpecialCells 方法 
来 实现 。 选 择 特定 单元 格 的 格式 如 下 : 
Range (" 单 元 格 区 域 ") .SpecialCel1ls (单元 格 类 型 变量 ) 
单元 格 类 型 常量 的 详细 说 明 如 表 10-1 所 示 。 
表 10-1 单元 格 类 型 常量 的 详细 说 明 


常 量 说 明 
xlCellTypeAllValidation 具有 有 效 条 件 的 单元 格 
xlCellTypeBlanks 空 单元 格 
xlCellTypeConstants 包含 常量 的 单元 格 


包含 注 释 的 单元 格 


具有 相同 格式 的 单元 格 
具有 相同 有 效 条 件 的 单元 格 


已 用 区 域 的 最 后 一 个 单元 格 


xlCellTypeVisible 所 有 可 见 单元 格 
xlCellTypeAlIFormatConditions 任意 格式 的 单元 格 


在 实际 工作 中 ， 使 用 SpecialCells 命令 ， 可 以 提高 工作 效率 ,例如 删除 图 10-13 所 示 工 作 
表 中 指定 数据 区 域 C3: C11 中 单元 格 为 空 的 行 ， 具 体 程序 代码 如 下 。 


Sub 删除 单元 格 为 空 的 行 () 
Range ("C3:C11") .SpecialCells (xlCellTypeBlanks) .EntireRow.Delete 


End Sub 
远 行 上 六 得 = 有 必 一 行 a 
运行 上 述 程序 后 ， 即 可 将 “销售 量 ” 为 空 的 单元 格 所 在 的 行 删除 ， 如 图 10-14 所 示 。 
[TEER 而 吕 板 入 绽 t+ - Microsoft Excel 器 国 | 加 3- -iv 两 吕 折 入 人 tt - Microsoft Excel om 
| = I | = BE 
| ss stm Bsmt | es wel 二 Vieua JS COM 3[ 瑟 项 王八 计 模 去 XML 双 术 加 板 
| | | » I 
fc 和 0 必 二 H 履 
Di5 加 加 
A 5 EF A E Fa 
1 
3 联想 9| ¥3,799| ¥34,191 联想 ¥34, 191 
4 12| ¥5,500| ¥66,000| 3 ¥66,000| 3 
5 4, 799| ¥95, 960| ¥95, 980| 
E33 ¥3, 849 ¥0| ¥36, 891 
3 下 4.099| ¥36, se1 ¥41, 800| 
8 3, 800| ¥41, 800| = air (MCo6BCH/A) 12| ¥7,398| Ye8,776| 电 
9 | 苹果 ¥7, 686 到 dix MCS6a 7| Y¥9, 598| 于 67, 186| 
11 Air (MC963CH/A} 7| x9, 598| ¥67, 186| 
12 
mR) ac hoota TENEr 7M wn BL sheeu hooty Tape 0 A -上 pm 
二 和 | 站 ET Te 瑟 | 厨 g us% = ED 
图 10-13 商品 销售 统计 表 10-14 删除 “销售 量 ”为 空 的 行 
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移动 和 改变 单元 格 的 选择 范围 是 Excel 应 用 的 基础 。 下 面 来 介绍 一 下 使 用 VBA 移动 和 改 
变 单 元 格 选择 范围 的 方法 。 

在 Excel 中 主要 使 用 Offset 函数 实现 单元 格 的 移动 和 范围 选择 。 

【 例 10.7】 以 D4 单元 格 为 参照 ， 向 下 移动 3 行 ， 向 左 移动 2 列 ， 并 选择 4 行 9 列 的 单元 
格 区 域 ， 具 体操 作 命令 如 下 。 

=Offset (D4, 3,2,4,9) 

在 VBA 中 ，Offset 可 以 被 拆 分 成 两 个 独立 的 函数 使 用 。 

Offset〔 移 动 行 数 ， 移 动 列 数 ) 


Resize〔 总 行 数 ， 总 列 数 ) 


【 例 10.8】 使 用 Offset 以 A2 为 参考 ， 移 动 选择 C6 单元 格 ， 具 体操 作 命 令 如 下 。 


Sub 移动 选择 () 
Range ("A2") .Offset (4, 2) .Select 
End Sub 


执行 命令 后 ， 会 自动 选择 C6 单元 格 ， 如 图 10-15 所 示 。 


图 10-15 ”相对 位 置 的 移动 


【 例 10.9】 以 C6 为 参照 ， 选 择 行 数 为 6， 列 数 为 3 的 单元 格 区 域 ， 具 体操 作 命令 如 下 。 


Sub 固定 大 小 的 范围 选择 () 
Range ("C6") .Resize(6，3) .Select 
End Sub 


运行 该 程序 后 ， 即 可 选择 以 C6 为 参照 、 行 数 为 6、 列 数 为 3 的 单元 格 区 域 ， 如 图 10-16 
所 示 。 
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图 10-16 选择 固定 大 小 的 范围 
【提示 】〗Offset 和 Resize 函数 可 以 同时 使 用 ， 如 以 A2 为 参照 表示 移动 所 在 单元 格 区 域 ， 同 样 可 以 选择 
如 图 10-16 所 示 的 固定 范围 ， 具 体操 作 命令 如 下 。 


Sub 移动 并 选择 固定 范围 () 
Range ("A2") .Offset (4, 2) .Resize(6，3) .Select 
End Sub 


10.2 
对 单元 格 进行 赋值 


为 单元 格 赋值 ， 填 入 数据 内 容 是 单元 格 操作 中 最 基本 的 内 容 。 单 元 格 赋值 的 操作 内 容 介 
绍 如 下 。 


el 直接 赋值 与 引用 


可 以 通过 直接 赋值 和 引用 的 方式 为 单元 格 填充 数据 内 容 。 其 中 直接 赋值 可 以 利用 单元 格 
对 象 的 Value 属性 来 操作 ， 其 语法 格式 如 下 : 

单元 格 .Value = ("常量 ") 

【 例 10.10】 在 工作 表 的 “B2:E10” 单 元 格 中 输入 “你 好 ”具体 操作 命令 如 下 。 

Sub 直接 赋值 () 


Range ("B2:E10") .Value = "你 好 " 
End Sub 


运行 该 程序 后 , 即 可 在 当前 工作 表 中 的 “B2:E10” 单 元 格 区 域 中 输入 “你 好 ”如 图 10-17 
所 示 。 
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10-17 直接 赋值 
【提示 】 在 单元 格 中 输入 内 容 时 ，Value 可 以 省 略 ， 但 是 输入 的 常量 必须 添加 双 引 号 (" ")。 也 可 以 引用 
其 他 单元 格 中 的 值 为 特定 区 域 的 单元 格 赋值 。 
【 例 10.11 】 在 单元 格 区 域 B13:D15 中 引用 单元 格 B2 中 的 值 ， 具 体操 作 命令 如 下 。 
Sub 直接 引用 () 


Range ("B13:D15") = Range ("B2") 
End Sub 


运行 该 程序 ， 为 B13:D15 区 域 的 单元 格 赋予 了 和 B2 单元 格 相同 的 值 ， 如 图 10-18 所 示 。 


图 10-18 直接 引用 


ee 利用 公式 赋值 

除了 简单 地 将 数据 赋予 单元 格外 ， 还 可 以 通过 公式 为 单元 格 赋予 运算 结果 ， 其 中 主要 利 
用 单元 格 的 Formula 属性 来 实现 该 功能 。 具 体内 容 介绍 如 下 。 

【 例 10.12】 为 单元 格 D5 赋予 B5*C5 的 结果 ， 具 体操 作 命令 如 下 。 

Sub 利用 公式 赋值 () 


Range ("D5") .Formula = "=B5*C5" 
End Sub 
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运行 该 程序 ， 在 D5 单元 格 中 显示 输入 相应 公式 的 计算 结果 ， 如 图 10-19 所 示 。 


D5 “GE £| =p5+C5 


图 10-19 利用 公式 赋值 


【提示 】〗 在 单元 格 中 输入 公式 时 ，Formula 也 可 以 省 略 ， 但 是 必须 添加 等 号 (=) 和 双 引 号 〈(" ") 。 如 果 
没有 等 号 ， 则 相当 于 输入 了 常量 。 


如 果 要 查看 单元 格 中 的 公式 ， 可 以 利用 Formula 属性 来 实现 ， 操 作 命令 如 下 。 


Sub 获取 单元 格 中 的 公式 () 
MsgBox "单元 格 D5 中 的 公式 为 : " & Range ("D5") .Formula，vbInformation，" 获 取 公 式 


End Sub 


运行 该 程序 ， 可 弹出 【获取 公式 】 的 提示 信息 ， 如 图 10-20 所 示 。 


获取 公式 


二 单元 格 I5 中 的 公式 为 ; =B5eCS 


10-20 弹出 获取 公式 信息 


| 引用 其 他 工作 表 中 的 单元 格 


在 赋值 时 经 常会 遇 到 引用 其 他 工作 表 中 数据 的 现象 ， 这 时 只 需 在 被 引用 的 单元 格 的 前 面 


加 上 “工作 表 名 !” 即 可 。 


【 例 10.13】 在 当前 工作 表 Sheetl 的 B5 单元 格 中 ， 输 入 Sheet2 工作 表 中 A1:A10 区 域 的 


数值 和 ， 具 体操 作 命令 如 下 。 
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Sub 跨 工 作 表 引用 () 


Range("B5") Formula = "=SUM(Sheet2!A1:A10)" 
End Sub 


【提示 】 若 被 引用 的 工作 表 名 称 被 重 命名 ,并 且 该 名 称 有 可 能 和 其 他 信息 产生 歧义 的 话 ， 需 要 使 用 单 引 
号 “” 将 引用 的 工作 表 的 名 称 括 起 来 ， 例 如 下 面 的 语句 : 
Sub 跨 工 作 表 引 用 () 


Range ("B5") .Formula = "=SUM( ' 工 资 表 ' !D2:D10)" 
End Sub 


可 引用 其 他 工作 得 中 的 单元 格 


除了 跨 工作 表 引 用 数据 外 ， 还 经 常 有 跨 工作 簿 引用 数据 的 现象 ， 这 时 只 需 在 被 引用 的 单 
元 格 所 在 工作 表 名 称 的 前 面 加 上 “[ 工 作 短 名 ]” 即 可 。 

【 例 10.14】 获 取 员 工 考勤 工作 簿 中 Sheet2 表 的 D3:D10 区 域 中 的 最 小 值 ， 具 体操 作 命 令 
如 下 。 

Sub 跨 工 作 簿 引用 () 

ActiveCell.Formula = "=MIN([ 员 工 考 勤 .xlsx] Sheet2!D3:D10)" 

End Sub 


【提示 】 以 上 命令 所 引用 的 工作 簿 没有 指明 绝对 路 径 ， 默 认为 桌面 上 的 工作 簿 ， 如 果 需 要 引用 不 在 桌面 
的 工作 簿 ， 需 要 在 工作 竹 名 称 前 加 上 绝对 路 径 。 例 如 ， 引 用 “D:\ 第 一 季度 考勤 \” 目 录 下 的 工作 短 ， 操 
作 命令 如 下 。 


ActiveCell.Formula = "=MAX( 'D:\ 第 一 季度 考勤 \ [员工 考勤 .xlsx] Sheet2'!1D3:D10)" 


以 上 代码 中 ， 对 引用 的 工作 表 要 加 单 引号 ， 引 号 内 包含 整个 工作 短 的 名 称 及 目录 。 


10.3 
单元 格 的 输入 与 输出 


单元 格 的 输入 与 输出 包括 在 单元 格 中 执行 常量 数值 的 输入 与 输出 和 公式 的 输入 与 输出 ， 
有 具体 内 容 介绍 如 下 。 


[ 葬 天 看 常量 的 输入 与 输出 


常量 的 输入 与 输出 操作 比较 简单 ， 具 体内 容 如 下 。 
1. 常量 的 输入 


常量 主要 指数 字 或 字符 , 在 VBA 代码 中 可 以 用 单元 格 对 象 的 Value 属性 来 实现 常量 的 输 
入 。 常 量 输 入 的 命令 格式 如 下 : 


单元 格 .Value= 常 量 
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【 例 10.15】 在 如 图 10-21 所 示 的 工作 表 中 ， 分 别 在 C3:C16 单元 格 区 域 中 输入 字符 “你 
好 ” 在 Fl:F10 单元 格 区 域 中 输入 数字 1 一 10。 


图 10-21 输入 字符 与 连续 数字 


在 C3: C16 单元 格 区 域 中 输入 字符 “你 好 ”的 操作 命令 如 下 。 
Sub 输入 字符 () 


Range ("C3:C16") .Value = "你 好 " 
End Sub 


【提示 】Range("C3:C16").Value = "你 好 "可 以 用 Range("C3:C16") = "你 好 "代替 。 
在 F1: F10 单元 格 区 域 中 输入 数字 1 一 10 的 操作 命令 如 下 。 
Sub 输入 数字 () 
Dim i As Integer 
For i=1To10 ' 设置 1 到 10 的 循环 
Cells(i, 6) = i 


Next i 
End Sub 


【提示 】〗Cells(i,6): 在 Cells 中 使 用 变量 ， 单 元 格 随 着 i 的 变化 而 变化 。 

2. 常量 的 输出 
可 以 在 程序 中 直接 引用 单元 格 的 值 参加 运算 或 进行 其 他 处 理 ， 具 体操 作 内 容 如 下 。 
【 例 10.16] 在 如 图 10-22 所 示 的 工作 表 中 ， 根据 数量 和 单价 计算 总 价 ， 其 程序 代码 如 下 。 
Sub 单元 格 参加 计算 () 


Range ("F7") = Range ("D7") * Range("E7") 
End Sub 
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产品 | 单价 | 数量 | 总 价 
| 鼠标 | 20 | 100 [2000 1 


加 加 站 中 四 证 mm 


= 
= 


图 10-22 单元 格 参加 计算 


同时 公式 的 输入 与 输出 


使 用 Formula 属性 可 以 在 单元 格 中 输入 公式 和 取得 单元 格 公 式 。 
1. 公式 的 输入 


有 

:i 

| 

上 

上 

: 
【 例 10.17】 在 如 图 10-23 所 示 的 工作 表 中 ， 根 据 数量 和 单价 ， 在 F7 单元 格 中 输入 公式 
“=E7*D7”， 其 程序 代码 如 下 : : 
: 

sub 单元 格 中 输入 公式 () i 
Range ("F7") .Formula = "=E7*D7" | 

End Sub | 
运行 该 代码 后 ， 即 可 在 F7 单元 格 中 自动 输入 公式 “=E7*D7”， 并 根据 公式 计算 出 结果 ， | 
如 图 10-23 所 示 。 | 
:| 

:i 

上 

| 

上 

| 


产品 | 单价 | 数 
展 标 | 20 


下 
2 
3 
生 
5 
6 
到 
8 
9 
10 


图 10-23 在 F7 单元 格 中 输入 公式 | 


【 例 10.18】 在 如 图 10-24 所 示 的 工作 表 中 ， 使 用 代码 在 E 列 相应 单元 格 中 输入 公式 “= 
销售 量 * 单 价 ”。 
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3 C 
商品 销售 统计 表 


较 
咕 


G470AH-ITH 
Y470N-IFI (H) 
ThinkPad E420 
G4-1207tzx 
g4-1012TX 
4-1058TX 
Pro (MCT00CH/A) 
Air (MC968CH/A) 
Air (MC965CH/A) 


| 


机 
洒 


a 
2 
3 
4 
五 
6 
mn 
8 
9 
10 
11 
12 


图 10-24 在 D 列 输入 公式 
Sub 在 E 列 输入 公式 () 


Dim i As Integer 
Dim x As String 
Dim y As String 
For i = 3 To Range ("A65536") .End (xlUp) .Row ， 设置 i 在 3 到 最 后 一 行 的 行 数 
' 之 间 循 环 。 
x = Cells(i,5) .Offset (0, -2).Address (0, 0) 
， 单元 格 偏 移 后 的 地 址 赋 给 x，address 属性 返回 指定 单元 格 的 地 址 。 
Y = Cells(i, 5).Offset(0, -1).Address (0, 0) 
Cells(i, 5) = "=" gx & "*" gy 
Next i 


End Sub 


运行 上 述 程序 代码 后 ， 即 可 在 E 列 单元 格 中 输入 相应 的 公式 ， 如 图 10-25 所 示 。 


| =C3+03 


B 


c 
商品 销售 统计 表 


G470AH-ITH 
Y470N-IFI (H) 
ThinkPad E420 
G4-1207tx 
gd4-1012TX 
gd4-1058TX 

Pro (MC700CH/A) 
Air (MC968CH/A) 
Air (MC965CH/A) 


图 10-25 填 入 的 公式 


Address 属性 的 代码 格式 为 : 单元 格 对 象 .Address( 行 是 否 绝对 ， 列 是 否 绝对 )。 以 Al 单 
元 格 为 例 ， 有 以 下 几 种 表示 方式 。 


$A1 表示 为 : 
Range ("Al") .Address (False, True) 


A $1 表示 为 : 
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Range ("Al") .Address (True, False) 
Al 表示 为 : 
Range ("Al") .Address (False, False) 
【提示 】〗Address 属性 代码 格式 中 ， 可 将 True 用 数字 1 代替 ，False 用 0 代 蔡 ， 以 简化 编辑 。 


2. 公式 的 输出 


可 以 用 Formula 属性 获取 单元 格 的 公式 文本 ， 并 通过 对 话 框 输出 表示 ， 有 具体 操作 方法 如 下 。 
【 例 10.19】 使 用 对 话 框 输出 显示 E3 单元 格 的 公式 内 容 ， 有 具体 操作 命令 如 下 。 


Sub 取得 单元 格 公式 () 
MsgBox "E3 单元 格 的 公式 为 : " & Range ("E3") .Formula 
End Sub 


运行 以 上 代码 ， 得 到 输出 结果 ， 如 图 10-26 所 示 。 


在 | =C3#D3 


C 
商品 销售 统计 表 


G470AH-ITH 
Y470N-IFI (H) 
ThinkPad E420| 
G4-120T7tx 
g4-1012TX 
g4-1058TX 

Pro (MC700CH/ A) 
Air (MC968CH/A) 
Air (MC965CH/A) 


图 10-26 显示 D12 单元 格 公式 
代码 说 明 : Range ("E3") .Formula 用 来 表示 E3 单元 格 中 的 公式 。 
【提示 】〗 代 码 中 Formula 不 能 省 略 ， 如 果 省 略 则 显示 的 是 值 “180000”， 而 不 是 公式 “=C3*D3”。 


10.4 
单元 格 删 除 与 信息 ZE 清 青 除 


可 以 将 不 需要 的 单元 格 删除 ， 分 为 两 种 情况 : 一 种 是 彻底 删除 单元 格 ; 另 一 种 是 只 清除 
单元 格 内 的 信息 ， 但 保留 单元 格 。 


| 单元 格 删 除 


删除 单元 格 后 ， 该 单元 格 的 位 置 不 能 空 着 ， 需 要 执行 右 侧 单元 格 左 移 ， 或 下 方 单元 格 上 
移 等 操作 。 使 用 VBA 删除 单元 格 的 具体 操作 内 容 如 下 。 
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1. 删除 后 右 侧 单 元 格 左 移 
【 例 10.20】 删 除 D4 单元 格 ， 且 右 侧 单元 格 左 移 ， 有 具体 操作 命令 如 下 。 
Sub 删除 后 右 侧 单 元 格 左 移 () 
Range ("D4") .Delete Shift:=xlToLeft 
End Sub 
【提示 】〗Delete 用 于 删除 单元 格 ，Shift 为 Delete 方法 的 自 变量 ，xlToLeft 代表 单元 格 向 左 移动 。 
2. 删除 后 下 方 单元 格 上 移 
【 例 10.21】 删除 D4 单元 格 ， 且 下 方 单元 格 上 移 ， 具 体操 作 命令 如 下 。 
Sub 删除 后 下 方 单元 格 上 移 () 
Range ("D4") .Delete Shift:=xlUp 
End Sub 
3. 删除 单元 格 所 在 行 
【 例 10.22】 删 除 D4 单元 格 所 在 的 行 ， 具 体操 作 命令 如 下 。 
Sub 删除 单元 格 所 在 行 () 
Range ("D4") .EntireRow.Delete 
End Sub 
【提示 】 使 用 EntireRow 属性 表示 指定 单元 格 所 在 行 。 
4. 删除 单元 格 所 在 列 
【 例 10.23】 删 除 D4 单元 格 所 在 的 列 ， 具 体操 作 命 令 如 下 。 
Sub 删除 单元 格 所 在 列 () 
Range ("D4") .EntireColumn.Delete 


End Sub 


【提示 】 使 用 EntireColumn 属性 表示 指定 单元 格 所 在 列 。 


[国史 单元 格 信息 清除 


单元 格 信息 除了 包含 单元 格 的 内 容 外 ， 还 包含 单元 格格 式 和 单元 格 批注 等 。 所 以 清除 音 
元 格 信息 可 分 为 清除 全 部 、 清 除 格式 、 清 除 内 容 、 清 除 批注 和 清除 超 链接 5 种 。 
1. 清除 单元 格 全 部 
例如 ， 在 如 图 10-27 所 示 的 工作 表 中 ， 清 除 Bs 单元 格 中 的 全 部 内 容 ， 其 程序 代码 如 下 ， 
Sub 清除 全 部 () 


Range ("B5") .Clear 
End Sub 
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图 10-27 单元 格 C8 的 信息 
运行 该 程序 后 即 可 将 B5 单元 格 中 的 所 有 内 容 清 除 ， 如 图 10-28 所 示 。 


区 - ”到 | 工作 表 操 作 介绍 
rl B c D E F 


10-28 ”清除 全 部 


2. 清除 单元 格格 式 
如 果 只 清除 单元 格格 式 ， 并 不 清除 单元 格 内 容 ， 其 程序 代码 如 下 : 
Sub 清除 格式 () 


Range ("BS5") .ClearFormats 
End Sub 


运行 该 程序 后 ， 即 可 将 B5 单元 格 的 格式 清除 ， 如 图 10-29 所 示 。 


1 
i 
B5 - 天 | 工作 表 基 本 操作 
A B C D E F | 


图 10-29 清除 格式 
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3. 清除 单元 格 内 容 
如 果 要 清除 单元 格 内 容 ， 保 留 单元 格 的 格式 及 批注 ， 可 以 使 用 下 面 的 程序 代码 ; 
Sub 清除 单元 格 内 容 () 


Range ("B5") .ClearContents 
End Sub 


运行 该 程序 后 ， 即 可 将 B5 单元 格 的 内 容 清 除 掉 而 保留 单元 格 的 格式 及 批注 。 


10.5 
单元 格 的 插入 、 隐 藏 及 查找 


当 表 格 中 的 行 或 单元 格 不 足 时 ， 需 要 插入 新 的 行 或 单元 格 。 当 工作 表 的 某 些 数据 不 需要 
显示 时 ， 又 需要 将 其 隐藏 。 利 用 Excel VBA 程序 代码 可 以 轻松 完成 以 上 任务 ， 具 体内 容 如 下 。 


同时 单元 格 的 插入 


当 表 格 中 的 单元 格 不 是 时， 可 以 使 用 Insert 方法 插入 相应 的 单元 格 。 
1. 指定 位 置 插入 单元 格 

用 户 可 以 在 指定 位 置 插 入 同样 数量 的 单元 格 。 例 如 ， 要 在 Sheetl 工作 表 “B1:C4” 单 元 
格 区 域 的 上 方 插入 等 数量 的 单元 格 ， 可 以 使 用 下 面 的 程序 代码 : 


Sub 在 单元 格 上 方 插入 () 

Range ("Bl1:C4") .Insert shift:=xlDown 

End Sub 

运行 该 程序 后 ， 即 可 在 “B1:C4” 单 元 格 区 域 上 方 插入 高 度 为 3 行 的 单元 格 区 域 ， 如 图 
10-31 所 示 。 


| 4 A |_D BE 中 C H I 
1 | 星 形 星 形 。” 星 形 。 星 形 。” 星 形 
3 | 星 形 星 形 。” 星 形 。 星 形 。 星 形 
生 | 星 形 形 ” 星 形 ” 星 形 ” 星 形 
5 2 星 形 星 形 星 形 星 形 
6 星 形 星 形 星 形 星 形 ” 星 形 
7 | 星 形 星 形 星 形 星 形 ” 星 形 
8_ 星 形 星 形 星 形 星 形 星 形 
9 星 形 星 形 星 形 星 形 ” 星 形 
10 星 形 星 形 星 形 星 形 ” 星 形 
11 | 星 形 星 形 星 形 星 形 星 形 
12 星 形 星 形 星 形 星 形 ” 星 形 
13 星 形 星 形 星 形 星 形 星 形 
14 星 形 星 形 星 形 星 形 星 形 
15 | 星 形 星 形 星 形 星 形 星 形 
16 星 形 星 形 星 形 星 形 
17 星 形 星 形 ” 星 形 。 星 形 形 
18 | 星 形 时 形 时 形 时 形 。 星 形 


图 10-31 插入 单元 格 区 域 
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【提示 】〗Range("B1:C4").Insert: 插入 和 Bl:C4 一 样 大 小 的 区 域 。 

shift:=xlDown 表示 原来 的 单元 格 向 下 移动 。Insert 方法 的 shift 自 变量 表示 原 有 单元 格 区 
域 的 移动 方向 。 如 果 是 shift:=xltoright， 则 表示 向 右 移动 。 
2. 在 指定 行 和 列 前 插入 空 行 或 空 列 


利用 VBA 实现 在 工作 表 中 的 指定 位 置 插入 整 行 或 整 列 的 代码 是 很 容易 理解 的 。 接 下 来 
就 以 如 图 10-32 所 示 的 工作 表 为 例 ， 介 绍 在 其 中 插入 单行 、 单 列 、 多 行 和 多 列 的 操作 方法 。 


H11 -@ 天 | 里 形 
A B rl nl rl = r= 
1 星 形 星 形 星 形 星 形 星 形 星 形 星 形 星 形 星 形 星 形 
2 星 形 星 形 星 形 ” 星 形 。” 星 形 星 形 。” 星 形 星 形 星 形 星 形 

4  。 星 形 ”里 形 ”里 形 星 形 。” 星 形 by 星 形 星 形 
星 形 ” 星 形 。 星 形 星 形 。” 星 形 星 形 星 形 
星 形 ”里 形 ”里 形 星 形 。 里 形 里 形 星 形 
星 形 ” 星 形 。 星 形 星 形 。 星 形  。 星 形 星 形 
星 形 ” 星 形 ” 星 形 星 形 ” 星 形 星 形 ” 星 形 星 形 
星 形 ”里 形 ”里 形 里 形 。 里 形 里 形 星 形 
星 形 ” 星 形 ” 星 形 星 形 。 星 形 ly 星 形 星 形 
星 形 ” 星 形 ”里 形 星 形 星 形 星 形 
星 形 。 星 形 。 星 形 星 形 时 形 星 形 
星 形 。” 星 形 ”里 形 星 形 。 星 形 星 形 
星 形 ” 星 形 ”里 形 星 形 ”里 形 by 星 形 星 形 
星 形 ” 星 形 。” 星 形 星 形 。 星 形 星 形 星 形 
星 形 ”里 形 ”里 形 星 形 ”里 形 里 形 星 形 
星 形 。 星 形 。 星 形 星 形 。” 星 形 星 形 星 形 
星 形 ” 星 形 。 星 形 星 形 。” 星 形 星 形 星 形 本 

形 时 形 ”时 形 时 形 里 形 星 形 里 形 
Sheet2 Sheet3 Ti vl 


图 10-32 ”Sheetl 工作 表 
(1) 在 第 4 行 前 插入 一 个 空 行 ， 并 在 第 5 行 前 插入 一 个 空 列 ， 其 程序 代码 如 下 : 
Sub 指定 行列 前 插入 () 


Rows (4) .Insert 
Columns (5) .Insert 


End Sub 

Se - i pe 六 全 ， 

运行 该 程序 后 ， 即 可 在 工作 表 的 第 4 行 前 插入 一 个 空 行 ， 并 在 第 $ 列 前 插入 一 个 空 列 ， 

如 图 10-33 所 示 。 
天 | 呈 形 到 

| we D E 下 6 了 I 1 ee 
1 上 E 星 形 ” 旦 形 六 是 有 六 量 
2 星 形 。 星 形 星 形 。 星 形 。 星 形 ”里 形 ” 星 形 ” 星 
3 星 形 。 星 形 星 形 。 里 形 。” 里 形 里 形 星 形 黑 
[3 
5 星 形 。” 星 形 二 时 
6 星 形 。 星 形 星 形 。 星 形 。 星 形 ” 星 形 ” 星 形 。” 星 弄 = 
7 星 形 。 星 形 星 形 。 星 形 。 星 形 星 形 星 形 旺 
星 形 。 星 形 星 形 。 星 形 。” 星 形 ” 星 形 ” 星 形 ” 星 
9 星 形 星 形 。 星 形 形 。 请 。 形 时 形 是 
10 星 形 。 星 形 星 形 。” 星 形 星 形 。 星 形 。” 星 形 ” 星 形 ” 星 形 ” 星 弄 
11 | 星 形 。 星 形 。 星 形 。 星 形 星 形 。” 星 形 。 星 形 ” 星 形 ” 星 形 ” 星 形 -| 
12 星 形 。 里 形 。 星 形 。 星 形 星 形 。 里 形 。 里 形 ” 星 形 。” 星 形 ” 星 形 
13 | 星 形 。 星 形 ” 星 形 ” 星 形 星 形 。 星 形 。 星 形 ” 星 形 ” 星 形 ” 星 天 
14 | 星 形 。 星 形 。 星 形 。 星 形 星 形 。 星 形 。 星 形 ” 星 形 ” 星 形 ” 星 形 
15 | 星 形 。 星 形 ” 星 形 ” 星 形 星 形 。 星 形 。 星 形 ” 星 形 。” 星 形 。” 星 天 
16 | 星 形 。 星 形 星 形 ” 星 形 星 形 。 星 形 。 星 形 ” 星 形 星 形 星 天 
1T | 星 形 。” 星 形 。 星 形 。 星 形 星 形 。 星 形 。 星 形 ” 星 形 。” 星 形 ” 星 形 
18 果 形 时 形 一 果 形 时 形 。 星 形 “里 形 ”里 形 里 形 里 形 Y 
MH 4b HM Sheetl “Sheet2 Sheet3 一介 Tal FE ] | 


图 10-33 插入 单行 和 单列 
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(2) 在 第 6 一 9 行 前 插入 等 数量 的 行 ， 并 在 第 G~I (7 一 9) 列 前 插入 等 数量 的 列 ， 其 程 
序 代 码 如 下 : 
Sub 指定 行列 前 插入 多 行 多 列 () 


Rows ("6:9") .Insert 
Columns ("G:I") .Insert 
End Sub 


运行 该 程序 后 ， 即 可 在 工作 表 的 第 6 一 9 行 前 插入 4 个 空 行 ， 并 在 第 G~I 列 前 插入 3 个 
空 列 ， 如 图 10-34 所 示 。 


= 天 | 里 形 
0 D 下 下 H I 7 | 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
星 形 星 形 星 形 星 形 
18 里 形 旱 形 旱 形 时 形 时 形 时 形 
M4 pM Sheotl Sheet2 Sheet3 ®9 Ql 站 ] + 


图 10-34 插入 多 行 和 多 列 


[ 园 呈 列 单元 格 的 隐藏 


在 Excel 的 基本 操作 中 ， 使 用 功能 区 工具 设置 隐藏 和 取消 隐藏 的 方法 都 比较 简单 ， 不 再 
介绍 , 利用 VBA 中 单元 格 的 Hidden 属性 可 实现 隐藏 或 取消 隐藏 的 功能 , 具体 操作 方法 如 下 。 
例如 ， 隐 藏 第 3 一 6 行 和 第 2 一 5 列 ， 其 程序 代码 如 下 : 
sub 隐藏 行 和 列 () 
Rows ("3:6") .Hidden = True 


Columns ("B:E") .Hidden = True 
End Sub 


运行 该 语句 后 ， 即 可 在 工作 表 中 隐藏 第 3 一 6 行 和 第 2 一 5 列 单元 格 ， 如 图 10-35 所 示 。 


星 形 y 
星 形 遍 一 新 星 形 。 星 形 
星 形 


星 形 。 星 形 星 形 星 形 


则 


四 
入 
四 
四 


: 

四 

四 
ER 
SR 


图 10-35 隐藏 整 行 和 整 列 
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若 要 取消 隐藏 第 3 一 6 行 和 第 2 一 5 列 ， 可 以 使 用 下 面 的 程序 代码 : 


Sub 取消 隐藏 行 和 列 () 
Rows ("3:6") .Hidden = False 
Columns ("B:E") .Hidden = False 


End Sub 
运行 该 语句 后 ， 即 可 取消 工作 表 中 隐藏 的 第 3 一 6 行 和 第 2 一 5 列 单元 格 ， 如 图 10-36 所 示 。 
& B C D E ey 

1 | 星 形 星 形 星 形 星 形 星 形 星 形 
2 | 星 形 星 形 星 形 星 形 星 形 星 形 
3 | 星 形 星 形 星 形 星 形 星 形 星 形 
4 2 星 形 星 形 星 形 星 形 星 形 | 
5 | 星 形 星 形 星 形 星 形 星 形 星 形 
6_ 星 形 星 形 星 形 星 形 星 形 l 
| 7 | 星 形 星 形 星 形 星 形 星 形 l 
8 | 星 形 星 形 ” 星 形 星 形 星 形 
9 | 星 形 星 形 星 形 里 形 里 形 时 形 
10 | 星 形 星 形 星 形 星 形 星 形 星 形 
11 星 形 星 形 星 形 星 形 星 形 星 形 
12 | 旱 形 时 形 时 形 和 时 形 累 形 
MiHl Sheetl Sheet2 “Sheet3 tA w | 了 


10-36 取消 隐藏 整 行 和 整 列 


【提示 】 单 元 格 对 象 的 Hidden 方法 可 以 指定 单元 格 区 域 的 显示 属性 ， 当 值 为 True 时 隐藏 ， 当 值 为 False 
时 取消 隐藏 。 


在 Excel 中 无 法 隐藏 单个 的 单元 格 ， 只 能 通过 隐藏 指定 单元 格 所 在 行 或 列 来 实现 隐藏 该 
单元 格 的 目的 。 

例如 ， 隐 藏 B4 所 在 的 行 和 列 ， 其 程序 代码 如 下 : 

Sub 隐藏 单个 单元 格 所 在 的 行 和 列 () 

Range ("B4") .EntireRow.Hidden = True 


Range ("B4") .EntireColumn.Hidden = True 
End Sub 


运行 该 程序 后 ， 即 可 隐藏 B4 所 在 的 行 和 列 ， 如 图 10-37 所 示 。 


& D E F [| 
|_2_ | 星 形 星 形 星 形 星 形 星 形 星 形 
| 8 | 星 形 ”| 星 形 ”| 妊 形 ” 星 形 ” 星 形 ” 星 形 
于 5 | 星 形 星 形 星 形 星 形 星 形 星 形 
|_6 | 星 形 星 形 星 形 星 形 星 形 星 形 
| | 时 形 星 形 星 形 星 形 星 形 星 形 
|_8 | 时 形 星 形 星 形 星 形 星 形 星 形 
[9 | 蛙 形 星 形 星 形 星 形 星 形 星 形 
[10 | 时 形 星 形 星 形 星 形 星 形 星 形 
[11 | 旦 形 。 | 性 形 ”| 站 形 有 ” 旦 形 ” 旦 形 

mi Sheetl de 曙 EC] wh 


图 10-37 隐藏 单个 单元 格 所 在 的 行 和 列 


也 可 以 隐藏 单元 格 区 域 所 在 的 行 和 列 ， 例 如 隐藏 B4:D6 所 在 区 域 的 行 和 列 ， 其 程序 代码 
如 下 : 
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Sub 隐藏 单元 格 区 域 所 在 的 行 和 列 () 

Range ("B4:D6") .EntireRow.Hidden = True 
Range ("B4:D6") .EntireColumn.Hidden = True 
End Sub 


运行 该 程序 后 ， 即 可 隐藏 工作 表 中 的 B4:D6 区 域 的 行 和 列 ， 如 图 10-38 所 示 。 


& E F a Rl 
1 | 星 形 星 形 。 星 形 星 形  。。 星 形 
2 | 星 形 星 形 。 星 形 星 形 星 形 星 形 
3 | 星 形 星 形 。 星 形 里 形 里 形 里 形 
时 | 星 形 星 形 。 星 形  。 星 形 。 星 形 
8 | 星 形 星 形 。 星 形 星 形 星 形 星 形 
9 | 星 形 星 形 。 星 形 星 形 星 形 星 形 
10 | 里 形 星 形 星 形 里 形 里 形 里 形 
12 | 星 形 星 形 。 星 形 星 形 星 形 星 形 
13 | 星 形 星 形 。 星 形 里 形 里 形 里 形 
14 | 里 形 星 形 。 星 形 星 形 星 形 星 形 
15 | 早 形 累 形 星 形 时 形 ”时 形 昧 形 
NMH 4 il Sheetl CSheet2 “Sheet3 CA La | 5 


图 10-38 ”隐藏 单元 格 区 域 所 在 的 行 和 列 


利用 VBA 隐藏 单元 格 的 方法 很 灵活 ， 用 户 可 以 根据 自己 的 实际 需要 或 使 用 习惯 ， 选 择 
合适 的 方法 。 


同时 单元 格 的 查找 


在 编写 代码 时 ， 常 需要 依据 指定 内 容 在 指定 区 域 查找 符合 条 件 的 单元 格 ， 这 时 就 需要 用 
查找 的 方法 。 使 用 VBA 程序 代码 查找 单元 格 的 操作 方法 如 下 。 
1. 使 用 Find 方法 进行 查找 

在 Excel 中 可 以 通过 【查找 和 替换 】 工 具 找 到 需要 的 单元 格 数 据 ， 同 样 也 可 以 使 用 VBA 
程序 代码 实现 。 这 里 主要 介绍 Find 方法 查找 ， 具 体内 容 介 绍 如 下 。 

【 例 10.24】 在 如 图 10-39 所 示 的 工作 表 中 ， 查 询 G3 单元 格 的 产品 型 号 所 在 的 行 数 ， 并 
将 查找 结果 表示 在 G4 单元 格 中 ， 具 体操 作 命 令 如 下 。 


Sub 查找 姓名 所 在 行 () 
Range ("G4") = Range("B:B") .Find (Range ("G3")) .Row 


End Sub 
a B 和 D E 下 E 
1 商品 销售 统计 表 
， 训 怀 | 产品 型 导 。 | 销售 昌 |[ 襄 价 。 | 总 价 | 
3 串 缮 起 OAH-ITH 9 了 E34 G4=1207tx 
4| HD 12 6, 0 
5 20 
6 吉普 Ej 
了 3 
8 11 
9 时 | 苹果 5 
10 Aiz (MC963CH/£) 12 
1 air (MC965CH/#) 7 


10-39” 按 产品 型 号 查找 
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【提示 】Range("B:B") Find 表示 在 B 列 进行 查找 ; Range("G3") 把 G3 的 值 作为 要 查找 的 内 容 。 
运行 该 程序 后 ， 即 可 在 G4 单元 格 中 显示 出 查找 后 的 结果 。 
2. 使 用 工作 表 函 数 进行 查找 


使 用 工作 表 函 数 同样 可 以 实现 单元 格 查找 功能 。 这 里 主要 介绍 两 个 函数 : Match 函数 和 
Vlookup 函数 。 其 中 Match 函数 可 以 返回 单元 格 的 位 置 ， 而 Vlookup 函数 可 以 返回 单元 格 的 
内 容 。 


(1) 使 用 Match 函数 返回 所 查找 的 单元 格 位 置 。 
在 如 图 10-40 所 示 的 工作 表 中 ， 查 询 G3 单元 格 的 产品 型 号 所 在 的 行 数 ， 并 将 查找 结果 
表示 在 G4 单元 格 中 ， 使 用 Match 函数 的 操作 命令 如 下 。 
Sub 使 用 工作 表 函 数 查找 姓名 所 在 行 () 
Range ("G4") = Application.Match (Range ("G3"), Range("B:B"), 0) 
End Sub 
(2) 使 用 Vlookup 函数 返回 查找 的 内 容 。 
例如 ， 在 如 图 10-40 所 示 的 工作 表 中 ， 要 根据 G6 单元 格 内 容 ， 在 B 列 查找 并 返回 该 型 
号 所 对 应 的 单价 , 并 把 查找 的 结果 填 入 到 G7 单元 格 中 , 使 用 Find 实现 的 具体 操作 命令 如 下 。 
Sub 查找 型 号 单价 () 


Dim Mrow As Integer 

Mrow = Range ("B:B") .Find (Range ("G6")) .Row ' 在 B 列 中 查找 匹配 G6 单元 格 的 行 
Range ("G7") = Range("D"” & Mrow) ' 在 G7 单元 格 中 返回 对 应 行 D 列 的 数据 信息 
End Sub 


B 5 D E F [9 
商品 销售 统计 表 


10-40 查找 单价 


使 用 工作 表 函 数 Vlookup 进行 查找 ， 操 作 命 令 会 更 加 简洁 ， 有 具体 命令 如 下 。 
Sub 使 用 函数 查找 型 号 单价 () 


Range ("G7") = Application.VLookup (Range ("G6"), Range("B:E"), 3, 0) 
End Sub 


【提示 〗 上 述 命令 中 ,“B:E” 表 示 匹 配 查找 的 数据 区 域 B 列 到 EE 列 。“3” 表 示 “B:E” 区 域 的 第 三 列 所 
在 的 单元 格 的 信息 为 要 返回 的 数据 。 
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10.6 
A 
合并 和 设置 单元 格 

除了 以 上 介绍 的 单元 格 的 操作 内 容 外 ， 还 有 其 他 单元 格 的 操作 内 容 。 本 节 将 详细 介绍 单 
元 格 的 格式 设 定 和 合并 单元 格 等 操作 内 容 。 
10.6.1 合并 单元 格 

一 个 复杂 完善 的 工作 表 ， 并 不 是 所 有 单元 格 都 一 样 大 小 的 。 例 如 整个 表格 的 标题 ， 一 般 
在 表格 的 上 方 居 中 ， 这 样 的 话 标题 就 不 可 能 只 占 一 个 单元 格 。 在 Excel 基本 操作 中 ， 可 以 通 
过 合并 单元 格 的 方式 解决 以 上 问题 。 

利用 VBA 代码 可 以 实现 单元 格 的 合并 操作 ， 同 时 在 取消 合并 时 ， 每 个 单元 格 中 都 会 保 
留 原 合并 单元 格 的 内 容 。 
1. 合并 单元 恪 时 连接 各 单元 格 的 文本 


如 果 合并 单元 格 时 ， 原 来 的 多 个 单元 格 中 都 有 数据 ， 可 以 通过 命令 将 这 些 单元 格 的 数据 
连接 起 来 ， 并 显示 在 合并 后 的 单元 格 中 。 


【 例 10.25】 将 如 图 10-41 所 示 的 工作 表 中 的 B5 和 C5 单元 格 进行 合并 ， 并 将 各 单元 格 内 
容 连 接 起 来 显示 在 合并 后 的 单元 格 区 域 中 ， 具 体操 作 命 令 如 下 。 


Sub 合并 单元 格 () 
Dim x Rs String ' 定义 字符 串 变 量 x， 用 于 显示 合并 后 的 文本 
Dim y As Range ' 定义 Range 类 型 变量 y 
For Each y In Range("B5:C5") ' 设置 变量 y 的 循环 区 域 
x = x & y.Value ' 将 单元 格 区 域 中 的 内 容 连 接 起 来 保存 在 字符 串 变 量 x 中 
Next 
Application.DisplayAlerts = False ' 禁止 在 合并 单元 格 时 显示 警告 功能 
Range ("B5:C5") .Merge '， 合并 单元 格 区 域 “B5:C5” 
Range("B5:C5") .Value = x ' 将 x 的 值 赋 给 单元 格 区 域 “B5:cC5” 
Application.DisplayAlerts = True ' 恢复 应 用 程序 显示 警告 和 消息 功能 
End Sub 


运行 该 程序 ， 得 到 如 图 10-42 所 示 的 结果 。 


NE C | A ss 
1 E 
2 
3 
4 | 4 
5 Bsc loer | 5 
6 6 
图 10-41 合并 前 的 单元 格 图 10-42 合并 后 的 结果 
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在 上 述 程序 中 指定 了 固定 的 单元 格 区 域 进行 合并 ， 在 实际 应 用 中 可 能 会 对 任意 单元 格 区 
域 进行 合并 ， 记 以 可 以 通过 VBA 设 定 合并 单元 格 的 操作 代码 ， 当 选择 好 单元 格 区 域 后 ， 直 
接 执行 该 程序 代码 即 可 。 合 并 任意 单元 格 区 域 的 操作 命令 如 下 。 

Sub 合并 任意 所 选区 域 () 


Dim x Rs String 
Dim y Rs Range 
If TYPeName (Selection) = "Range" Then 
For Each y In Selection 
X=X&Y.Value 
Next 
Application.DisplayAlerts = False 
Selection.Merge 
Selection.Value = x 
Application.DisplayAlerts = True 
End If 
End Sub 


2. 取消 合并 单元 格 时 在 每 个 单元 格 中 保留 内 容 
有 单元 格 合并 就 有 取消 合并 ， 具 体操 作 内 容 如 下 。 


【 例 10.26】 取 消 如 图 10-43 所 示 的 A 列 中 的 合并 单元 格 ， 并 且 将 数据 分 别 保留 在 取消 合 
并 后 的 所 有 单元 格 中 ， 具 体操 作 命 令 如 下 。 


Sub 取消 合并 () 
Dim i As Integer 
Dim x As String 
Dim y As Integer 
For i=1 To 100 ， 从 第 1 行 开始 ， 到 第 100 行 
x = Cells (i,1) .Value ， 将 A 列 每 个 合并 单元 格 中 的 内 容 赋 值 给 x 
Y = Cells (i,1) .MergeArea.Count ' 取得 合并 区 域 中 的 单元 格 数量 
Cells (i，1) .UnMerge ' 利 用 UnMerge 方法 取消 合并 单元 格 
Range (Cells(i, 1), Cells(i +y- 1, 1)).Value = x 
， 将 原 合并 单元 格 中 的 内 容 赋 值 给 取消 合并 单元 格 后 的 区 域 
i = i + y - 1' 调 整 循环 变量 i 的 值 ， 使 一 次 循环 从 该 合并 区 域 的 下 一 个 单元 格 开始 
Next i 
End Sub 


运行 该 程序 ， 取 消 A 列 中 合并 的 单元 格 , 并 且 取 消 合 并 的 单元 格 中 都 保留 了 原单 元 格 的 
数据 内 容 ， 如 图 10-44 所 示 。 


Al -= | 111222 Al 而 | 111222 
A B c 至- 3B 9 
i 是 111222 
让 uaal 2 [ill229 
一 全 3 
3 4 
4 5 
图 1043 合并 的 单元 格 图 10-44 合并 单元 格 
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同 本 | 设置 单元 格格 式 


为 了 使 表格 更 加 美观 ， 使 单元 格 内 容 信息 能 更 加 清晰 地 表示 ， 需 要 对 单元 格 进行 格式 化 
操作 。 可 以 通过 右 击 单元 格 ， 在 弹出 的 快捷 菜单 中 选择 【设置 单元 格格 式 】 菜 单 命令 ， 打 开 
【设置 单元 格格 式 】 对 话 框 ， 从 中 对 单元 格格 式 进行 调整 。 同 时 也 可 以 使 用 VBA 程序 代码 完 
成 类 似 操作 。 

1. 设置 字体 等 格式 


单元 格格 式 最 基本 的 就 是 字体 样式 ， 在 VBA 中 可 以 使 用 Font 对 象 的 Name、Size 等 属 
性 设置 字体 的 格式 。 


【 例 10.27】 对 如 图 10-45 所 示 的 工作 表 中 的 表格 设置 字体 格式 ， 其 中 标题 的 字体 设置 为 
“ 蓝 色 ”“18 号 六 “华文 隶书 ”标题 底 纹 为 “紫色 ” 第 二 行 选项 的 字体 设置 为 “黑色 ”“14 
号 ”“ 华 文中 宋 ” 所 有 表格 数据 均 设置 为 居中 对 齐 。 


A B c D E 了 
1 商品 销售 统计 表 
2 品牌 产品 型 号 销售 量 。 单价 总 价 
3 联想 G470AH-IT 9 3799 34191 
4 Y470N-IFI 12 5500 66000 
5 ThinkPad 20 4799 95980 
6 B4-1012TX 9 4099 36891 
gd4-1058TX 11 3800 41800 
8 Air (JIC965 12 7398 88776 
9 Air (IC965 7 9598 67186 
10 
11 


10-45 ”要 设置 格式 的 工作 表 
完成 以 上 内 容 的 具体 操作 命令 如 下 。 


Sub 设置 字体 格式 () 

Range ("Al") .Select 

With Selection 
.Font .Name = "华文 隶书 " 
.Font.Size = 18 
.Font.ColorIindex = 5 
.Interior.ColorIndex = 39 

End With 

Range ("A2:E2") .Select 

With Selection.Font 
.Name = "华文 中 宋 " 
.Size = 14 

End With 

Range ("A3:A9,B3:B9,C3:C9,D3:D9,E3:E9") .Select 

With Selection.Font 
.Name = "Times New Roman" 
.Size = 11 

End With 

Range ("A2:E9") .Select 


176 


With Selection 
.HorizontalAlignment = xlCenter 
.VerticalAlignment = xlCenter 


End With 
Range ("Al") .Select 
End Sub 
运行 该 程序 ， 得 到 设置 后 的 效果 ， 如 图 10-46 所 示 。 


Co ET 


品牌 “产品 型 号 ”销售 量 ”单价 ”总 价 


1 

2 

3 | 联想 G470AH-ITH 9 3799 34191 
4 Y470N-IFI(H) 12 5500 66000 
5 ThinkPad E420 20 4799 95980 
6 84-101TX 9 4099 36891 
7 84-1058TX 11 3800 41800 
8 Aa(MC96SCHA) 12 7398 $88776 
9 Aa(MC9%65CHA) 7 9598 67186 
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图 10-46 设置 格式 后 的 效果 


2. 为 表格 添加 边框 


可 以 使 用 Range 对 象 的 Borders 集合 快速 地 对 单元 格 区 域 的 每 个 边框 应 用 相同 的 格式 ， 
并 且 Range 对 象 的 BorderAround 方法 可 以 为 单元 格 区 域 添加 一 个 外 边框 。 


【 例 10.28】 为 如 图 10-47 所 示 的 “商品 销售 统计 表 ” 工 作 表 添加 边框 ， 具 体操 作 命 令 如 下 。 
Sub 添加 边框 () 


Dim i As Range 
Set i = Range ("Al:E9") ' 设置 对 象 变量 为 单元 格 区 域 “Al:E9” 
With i.Borders (xlInsideVertical) 
.LineStyle = xlContinuous ' 设置 边框 的 线条 样式 
.Weight = xlThin "设置 边框 线条 的 粗细 
.ColorIndex = 55 ' 设置 边框 的 颜色 
End With 
With i.Borders (xlInsideHorizontal) 
.LineStyle = xlDash 
.Weight = xlThin 
.ColorIindex = 55 
End With 
i.BorderAround xlContinuous, xlMedium, 55 
Set i = Nothing  '， 从 内 存 中 释放 对 象 变量 ,与 Set 相对 应 
End Sub 


运行 该 程序 ， 为 “商品 销售 统计 表 ” 添 加 边框 ， 如 图 10-47 所 示 。 
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oonaomooronh 


Ax(MC9GCHA) 7 9598 | 67186 


四 旺 


图 1047 为 表格 添加 边框 


【提示 】〗 上 述 程序 代码 中 的 Borders(index) 属 性 可 以 返回 单个 Border 对 象 ， 其 中 参数 的 取 值 及 意义 如 表 
10-2 所 示 。 


表 10-2 index 的 取 值 及 意义 


常量 值 说 明 
[xuEdgetop |s JW | 
[xEdgeBotom 9 RE | 
[xEdgeright | 6 并 
[umsideverical Un 下 | 
12 


利用 Range 对 象 的 BorderAround 方法 可 以 为 单元 格 区 域 添加 整个 区 域 的 外 边框 , 其 语法 
格式 为 : 


BorderAround (LineStyle,Weight,ColorIndex,Color) 


【提示 】ColorIndex 参数 和 Color 参数 都 可 以 指定 边框 颜色 ， 但 是 ColorIndex 参数 可 以 指定 当前 调 色 板 
中 的 颜色 ， 而 Color 参数 以 RGB 值 指定 边框 的 颜色 ， 可 以 是 当前 调 色 板 以 外 的 颜色 。 但 是 以 上 两 种 参 
数 不 能 同时 使 用 。 


10.7 ”综合 实战 1 一 一 为 销售 清单 实 
现 公 式 快 速 自动 填充 


在 Excel 操作 中 , 会 遇 到 同一 列 执行 相同 计算 公式 的 现象 , 这 时 可 以 利用 VBA 代码 实现 
公式 的 自动 填充 。 具 体操 作 内 容 介绍 如 下 。 

例如 ， 在 如 图 10-48 所 示 的 “笔记 本 销售 清单 ”工作 表 中， 要求 当 单元 格 C、D 和 E 列 
中 的 单元 格 内 容 发 生 改变 后 , 在 G 列 中 会 自动 填充 上 用 于 计算 “实际 金额 ”的 公式 。 其 中 “ 实 
际 金额 = 数量 * 单 价 * 折 扣 率 ” 具体 操作 命令 如 下 。 


Private Sub Worksheet Change(ByVal Target As Range) 
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Dim Trow Rs Integer 
Dim Bcol As String, Ccol As String 
Dim Dcol As String, Ecol As String 
Trow = Target .Row ' 将 当前 编辑 的 单元 格 的 行 数 赋值 给 变量 Trow 
If Trow > 2 And Len (Range ("C" & Trow)) > 0 And Len(Range("D" & Trow)) > 0 And 
Len(Range("E" & Trow)) > 0 Then 
"从 第 3 行 开始 ， 只 有 当 “ 数 量 `“ 单 价 ” 和 “折扣 率 ”项 都 填 入 内 容 后 ， 才 执行 下 一 条 语句 
Ccol Range("C" & Trow) .Address (0, 0) 
Dcol = Range("D" & Trow) .Address (0, 0) 
Ecol = Range("E" & Trow) .Address (0, 0) 
Range("G" & Trow) .Formula = "=" & Ccol & "*" & Dcol & "*" & Ecol 
End If 
End Sub 


【提示 】Worksheet_Change 表示 当 工 作 表 中 单元 格 发 生 修改 时 运行 程序 。 


此 时 ， 当 改变 单元 格 内 容 时 ， 例 如 将 C3 单元 格 中 的 “100” 改 变 “300” 后 ， 即 可 在 对 
应 的 G3 单元 格 中 计算 出 该 笔记 本 的 “实际 金额 ” 如 图 10-48 所 示 。 


A BE 站 下 F 3 


1 
: Es i 
3 1-10|c470DAH 
区 PTFSETEOTESTITT 1 i: 
2012-L-10|rhinkpaG F420 i 
2012-1-11|9470AH 二 
2012-1-11|?470N-IFIIH) 
2012-1-11|ThinkPac E420 ; E 
2012-1-12|6470AH | 
2012-1-12|7470N-IFT (H) i 
1-12|ThinkPad E420 
2012-1-13|e470A8 i 
2012-1-13|7470N-IFI (H) HE 
2012-1-13|ThinkPad E420 
2012-1-14|6470AH 和 | 
[7470N-IFI CH) | [| 
|ThinkPaa E420 1 
|S470DAH : : 
[7470N-IFT (H) HE 
2012-1-15|ThlnkPad E420 1 
图 1048 笔记 本 销售 清单 :| 
a :本 - E 位 二 、 « 本: » « » 
当 输入 笔记 本 销售 信息 后 ， 系 统 便 会 自动 计算 出 对 应 的 “实际 金额 ” 其 中 “折扣 额 ” | | 
列 的 数据 也 可 以 使 用 上 述 方式 添加 运算 公式 ， 添 加 后 的 运算 结果 如 图 10-49 所 示 。 i 
B 加 D E 了 [ 四 
2 价 1# 
3 IG470AH 3| ¥3,799| 0.9| ¥1,139.70| 
生 |Y47ON-IFI(H) 4| ¥5,500| 0.8| ¥4,400.00ll i 
5 |ThinkPad E420 | 6| ¥4,799| 0.95| ¥1,439.70l i 
GE |C470AH 7| ¥3,849| 0.85| ¥4, 041.45| 
|Y47ON-IFI(H) 8| ¥5,499| 0.75| ¥10, 998.00) 
8 IThinkPad E420 13| ¥4,600| 0.9| ¥5,980. ool 
9 IG470AH 11| ¥3,799| 0.8| ¥8,357. sol 
10 |Y470N-IFI(H) 5| ¥5,500| 0.95| ¥1,375. ool 
11 IThinkPad E420 6| ¥4,799| 0.85| ¥4,319. 10l 
12 IG470AH 了 | ¥3,849| 0.75| ¥6,735. 75l 
13 |Y470N-IFI(H) 4| ¥5,499| 0.85| ¥6,598. sol 
14 IThinkPad E420 12| ¥4,600| 0.75| ¥13, 800. ool 
15 IG470AH 9| ¥3,799| 0.75| ¥8,547. 75| 
16 |Y470N-IFI(H) 13| ¥5,500| 0.9| ¥7,150. ool 
IT IThinkPad E420 6| ¥4,799) 0.8| ¥5,758. 8ol 
18 IG470AH 了 | ¥3,849| 0.95| ¥1,347. 15l 
19 |Y470N-IFI(H) 8| ¥5,499| 0.85| ¥6,598. 8ol 
20 IThinkPad E420 14| ¥4,600| 0.75| ¥16,100. ool 
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二 EEIEITRZI 和 门 与 立 | 上 


10.8 综合 实战 2 一 一 为 销售 记录 自 
动 填充 颜色 


在 实际 应 用 中 ， 可 以 利用 VBA 代码 将 不 同 信息 的 内 容 用 不 同 的 颜色 进行 区 分 ， 具 体操 


16 \Y470N-IFI (H) 1 
17 ‘ThinkPad E420 


¥5, 500| 
¥ 4, 799| 
¥3, 849| 0. 8: 
¥5, 499| 0.8 
¥4,600| 0.7 


¥7, 150. 00| 00 
¥5, 758. 80| _¥ 23, 035. 20| 


18 G470AH 
19 'Y470N-IFI (H) 
20 ‘ThinkPad E420 


¥1, 347.15| ¥25, 595. 85 
¥6, 598. 80| _¥ 37, 393. 20 
¥16, 100. 00| ¥48, 300. 00| 


作 方 法 如 下 。 
i a We 
为 如 图 10-50 所 示 的 “笔记 本 销售 清单 ”工作 表 中 不 同 产品 的 销售 记录 使 用 不 同 的 颜色 
Se 
进行 表示 。 
B C D E 了 G H 1 "Yr 
1 
2 use 和 ee 折扣 家 1 实际 全 新 
3 G470AH 3| ¥3,799| 0.9| ¥1,139.70| ¥10,257. 30| IG470AH 
4 JY470N-IFI (H) 4| ¥5,500| 0.8| ¥4,400.00| ¥17,600.00| IY470N-IFI (H) 
5 IThinkPad E420 6| ¥4,799| 0.95| ¥1,439.70| ¥27, 354.30| [ThinkPad E420 
6 G470AH ?| ¥3,849| 0.85| ¥4,041.45| ¥22, 901.55)| 
人 Y470N-IFI (H) 人 | ¥5,499| 0.75| ¥10,998.00| ¥32,994.00| 
8 ThinkPad E420 13| ¥4,600) 0.9| ¥5,980.00| ¥53, 820. 00| 
9 G470AH 11| ¥3,799| 0.8| ¥e,357.80| ¥33,431.20 
10 \Y470N-IFI(H) 5| ¥5,500| 0.95| ¥1,375.00| ¥26,125.00 
11 ‘ThinkPad E420 6| ¥4,799| 0.85| ¥4,319.10| ¥24,474.90| 
12 G470AH ?| ¥3,849| 0.75| ¥6,735.75| ¥20,207.25)| 
13 \Y470N-IFI (H) 4| ¥5,499| 0.85| ¥6,598.80| ¥18,696.60| 
14 ThinkPad E420 12| ¥4,600| 0.75| ¥13, 800.00 ¥ 41, 400. 00| 
15 G470AH 9| ¥3,799| 0.75| ¥8,547.75| 25| 
3 .9| ¥6 
6| 8| 
了 | 5| 
8 5| 
4| 5| 


图 10-50 为 销售 记录 的 自动 填充 颜色 
具体 操作 步骤 如 下 。 
@ 遇 在 VBA 代码 窗口 中 ， 输 入 以 下 程序 代码 。 


Private Sub Worksheet Change(ByVal Target Rs Range) 
On Error GoTo AAA 
Dim Trow As Integer 
Dim Frow As Integer 
Dim ys As Integer 
Trow = Target.Row '， 将 当前 的 行 号 赋值 给 变量 Trow 
IE Trow > 2 Then '， 如 果 当 前 行 号 大 于 2， 则 执行 下 一 条 语句 ， 否 则 退出 事件 程序 
If Target.Column = 2 Then 
， 判断 当前 列 数 是 否 为 2( 因 为 颜色 和 部 门 有 关 ， 所 以 只 让 事件 代码 作用 于 产品 型 号 所 在 的 第 2 列 )。 
' 如 果 不 为 2〈 即 改变 其 他 列 中 的 单元 格 时 )， 则 退出 事件 程序 
IE Len(Target) > 0 Then ' 如 果 当 前 单元 格 的 内 容 不 为 室 ， 则 执行 下 一 条 语句 
Frow = Range("I:I") .Find(Target) .Row 
"根据 当前 产品 型 号 在 工 列 中 进行 查找 ， 并 将 查找 到 的 单元 格 的 行 号 赋值 给 变量 Frow 
ys = Range("J" & Frow) .Interior.ColorIndex ' 取 得 J 列 相 对 应 产品 型 号 单元 
格 ' 的 颜色 
Range (Cells (Trow, 1), Cells(Trow, 7)).Interior.ColorIindex = ys 
， 将 当前 单元 格 所 在 行 的 第 1 列 到 第 7 列 的 单元 格 区 域 的 填充 颜色 值 设置 为 ys 


Else 
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Range (Cells (Trow，1)，Cells (Trow，7) ) .Interior.ColorIndex = 0 
' 如 果 不 符合 条 件 ， 则 将 当前 单元 格 所 在 行 的 第 1 列 到 第 7 列 的 单元 格 区 域 的 填充 颜色 值 设置 为 0， 即 
' 无 颜色 填充 
End If 

End If 
End If 
Exit Sub 
AAA: 

Range (Cells (Trow, 1), Cells(Trow,7)). _ 

Interior.ColorIndex = 0 
End Sub 


加 在 代码 窗口 中 新 插入 一 个 模块 ， 输 入 以 下 程序 代码 。 
Sub 刷新 填充 颜色 () 


Dim i As Integer 
For i = 3 To Range("A65536") .End (xlUp) .Row 
Cells(i, 2) = Cells(i, 2) 
Next i 
End Sub 


上 @ 便 运行 “刷新 填充 颜色 ”过 程 ， 即 可 将 工作 表 中 的 数据 填充 上 设置 的 各 部 门 的 对 应 颜色 ， 
如 图 10-51 所 示 。 


[ B 到 D E 下 区 H 宇 


产品 型 号 。 | 数量 | 单价 | 折扣 率 | ”折扣 额 ”| 实际 金额 _| 
DAH | 3| ¥3,799| 0.9| ¥1,139.70| ¥10,257.30| [e470an 


Y470N-IFI (H 
[ThinkPad E420 


| 5 499| 0.75| ¥10, 998. 00| 


口 


¥3,799| 0.8| ¥8,357.80| ¥33,431.20| 
| 10 Y470N-IFI(H 5| ¥5, 500| 0.95| ¥1,375.00) 6 


| 


,15 G4TOAH ¥ 25, 643. 25| 
| 16 Y470N-IFI(H X64 350. 00| 


[ar 
| 18 SEO 


图 10-51 为 各 部 门 填充 颜色 


10.9 综合 实战 3 一 一 统计 单元 格 区 
域 的 数目 

在 Excel 中 会 遇 到 统计 一 定 区 域 中 单元 格 数量 的 要 求 ， 可 以 使 用 以 下 程序 代码 实现 该 功 
能 ， 具 体操 作 命令 如下 。 


Private Sub Worksheet_SelectionChange (ByVal Target As Range) 
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MsgBox "您 好 ， 选 中 区 域 的 单元 格 个 数 为 : " & Selection.Count 
End Sub 
代码 输入 完毕 后 ， 返 回 工 作 表 中 选中 任意 单元 格 区 域 ， 例 如 这 里 选择 “B4: F10” 单 元 
格 区 域 ， 随 即便 会 弹出 显示 所 选区 域 单元 格 数目 的 提示 框 ， 如 图 10-52 所 示 。 


B4 ”全 拓 | Y470N-IFI(H) 


2012-1-12|ThinkPad F420 


1 
2 
BE 
HE 

5 

6 

8 ThinkPad E420 | 

3 | 2012-1-12|ca7okf | 
10 | 2012-1-12|7470N-IFI(H) | 一 一 一 

11 

12 


2012-1-13|G470AH | 0.75| 6, 735.75 
13 _2012-1- 18|r47om- IFI(H) | 4| ¥5,499| 0. 9| ¥6, 598. 80| 


ee wo en! 


CR 
图 10-52 显示 选中 单元 格 数目 
除 此 之 外 ， 还 可 以 统计 已 指定 名 称 的 单元 格 区 域 的 单元 格 数 ， 具 体操 作 命 令 如 下 。 


Private Sub Worksheet SelectionChange (ByVal Target As Range) 
= Range ("单价 记录 ") .Count 
End Sub 
【提示 】 可 以 右 击 选中 的 单元 格 区 域 ， 在 弹出 的 快捷 菜单 中 选择 【定义 名 称 〗 菜 单 命令 ， 为 单元 格 区 域 
指定 名 称 。 


如 果 需 要 统计 所 选区 域 的 行 数 ， 可 以 使 用 以 下 程序 命令 。 


Private Sub Worksheet SelectionChange (BYVal Target As Range) 
MsgBox "您 好 ， 选 中 区 域 的 行 数 为 : " & Selection.Rows .Count 


End Sub 
NA 4 二 
当选 择 某 行 时， 系统 即 可 弹出 选择 区 域 的 行 数 信息 ， 如 图 10-53 所 示 。 
Al4 ~ CMMl|_2012-1-13 
A I B 人 E F 
10 | 2012-1-12|Y470N-IFI (H) 5| ¥5,500| 0.95| ¥1, 375.00| 
11 | 2012-1-12|ThinkPad E420 人 | ¥4,799| 0.85| ¥4,319.10| 
了 | ¥3,849| 0.75| ¥6,735.75| 
99 ¥6, 598. 80| 
soft Excel 区 ¥13, 800. 00| 
EE ¥8, 547. 75| 
2012-1-] [va7on-IF1CH) | 选中 区 域 的 行 数 为 :3 站 六 7, 150. 00| 
17 | 2012-1-14|ThinkPad E42d ¥5, 758. 80 
18 | 2012-1-15|G470AH ¥1, 347.15| 
19 | 2012-1-15|Y470N-IFI (H) ¥6, 598. 80| 
20 | 2012-1-15|ThinkPad E420| 14| ¥4,600| 0.75| ¥16,100.00l 
21 
22 
23 
MW 4 YM| sheetl Sheet2 Sheet3 2 El . J J 


图 10-53 显示 选择 区 域 的 行 数 
如 果 需 要 统计 所 选区 域 的 列 数 ， 可 以 使 用 以 下 程序 命令 。 
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Private Sub Worksheet SelectionChange (ByVal Target Rs Range) 
MsgBox "您 好 ， 选 中 区 域 的 列 数 为 : " & Selection.Columns .Count 


End Sub 
当选 择 某 列 时 ， 系 统 即 可 弹出 选择 区 域 的 列 数 信 息 ， 如 图 10-54 所 示 。 
[ B6 = 天 | G470AH 
| A 1 B 9 D | F 
单价 
2012-1-10|G470AH 3| ¥3,799| oA FE .70| 
0.8| 玉生 400.00 
5 


EL 后 70| 


0.85| 6, 598. 80 
1 hoety hety 7 le 


10-54 ”显示 选择 区 域 的 列 数 


10.10 ”综合 实战 4 一 一 确定 单元 格 区 
域 的 数据 类 型 


可 以 通过 Excel 内 置 函 数 和 VBA 中 包含 的 函数 确定 单元 格 中 的 数据 类 型 , 同时 也 可 以 通 
过 Function 自 定义 一 个 可 以 判断 数据 类 型 的 函数 ， 然 后 通过 调用 该 函数 来 确定 单元 格 中 数据 
的 类 型 ， 具 体操 作 内 容 如 下 。 

首先 需要 创建 一 个 可 以 判断 数据 类 型 的 自 定 义 函 数 ， 操 作 命令 如 下 。 


Function CellType (Rng) “' 创建 自 定义 函数 CellType 
Dim Cella As Range 
Set Cella = Rng.Range ("Al") 
Select Case True 
Case IsEmpty (Cella) 
CellType = "Blank" 
Case Application.IsText (Cella) 
CellType = "Text" 
Case Application.IsLogical (Cella) 
CellType = "Logical" 
Case Application.IsErr (Cella) 
CellType = "Error" 
Case IsDate(Cella) 
CellType = "Date" 
Case InStr(1，Cella.Text，":") <> 0 
CellType = "Time" 
Case TnStr{(l, CellaTexty "YY¥") <> 0 
CellType = "Money" 
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Case IsNumeric(Cella) 
CellType = "Number" 
End Select 
End Function 


上 述 自 定义 函数 创建 之 后 ， 需 要 在 该 模块 中 输入 调用 指令 ， 具 体操 作 命 令 如 下 。 
Sub 类 型 () 


Dim a As Variant 

a = CellType (Selection) 

MsgBox "您 好 ， 选 择 的 类 型 为 : " & a, vbInformation 
End Sub 


代码 输入 完毕 后 ， 返 回 工作 表 ， 为 了 方便 操作 ， 可 以 为 该 程序 创建 执行 按钮 。 当 选中 某 
单元 格 后 ， 单 击 创建 的 执行 按钮 ， 系 统 便 会 弹出 所 选单 元 格 中 数据 的 类 型 ， 如 图 10-55 所 示 。 


k B 5 5 E F 
13 | 2012-1-13|Y470N-IFI (H) .0 
14 ,2012-1-13|ThinkPad E420 TL 用 二 和 
15 2012-1-14|G470AH 二 有 和 
16 2012-1-14|Y47OH- 下 ) 各， 这 兰 的 KR 开 为 : Text [00| 一 
上 2012-114| 0 yy eol 
18 2012-1-15|G470AH 后. | 师 汪 和 
19 | 2012-1-15|7Y470N-IFI (H, [| nl 
20 | 2012-1-15|ThinkPad E420 - - ro 00) 
21 
22 
23 数据 类 型 
24 
25 


10-55 ”显示 单元 格 数据 类 型 
【提示 】 程 序 执行 按钮 的 添加 可 以 参考 第 11 章 中 窗 体 控件 的 相关 操作 内 容 。 


如 果 选 中 的 是 单元 格 区 域 ， 则 在 执行 数据 类 型 判断 时 ， 只 能 返回 该 区 域 左 上 角 单 元 格 内 
数据 的 数据 类 型 ， 如 图 10-56 所 示 。 


[ D15 -区 二 | 3799 

A B [I a ns a ts F 
13 | 2012-1-13|Y470N-IFI(H) | 4| ¥5,499| 0.85| ¥6,598.80| 
14 | 2012-1-13|ThinkPad E420 | 12 ¥13, 800. 00| 
15| 2012-1-14|G470AH 9| ¥3,799 ¥ 8, 547. 75| 
下 2012-1-14|Y470N-IFI(H) 13P¥ .059 ¥7,150.00| 

2012-1-14|ThinkPad E420 | ¥5, 758. 80| 

8 2012-1-15|c470AH 了 
19 | 2012-1-15|Y470N-IFI(H) 
20 | 2012-1-15|ThinkPad E420 | 14 
21 站) 修好 ,过 所 的 类 型 为 : I 
22 型 es 
23 数据 : 
24 [WE- 


图 10-56 显示 区 域 左 上 角 单元 格 的 数据 类 型 
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技巧 1: 快速 清除 单元 格 批注 
如 果 要 清除 单元 格 的 批注 ， 而 对 内 容 和 格式 不 影响 ， 则 可 以 使 用 下 面 的 程序 代码 : 
Sub 清除 批注 () 


Range ("B5") .ClearComments 
End Sub 


运行 该 程序 后 ， 即 可 清除 B5 单元 格 的 批注 ， 而 不 影响 单元 格 内 容 和 格式 。 
技巧 2: 快速 查找 重复 的 数据 


当 工 作 表 数据 中 要 查询 的 数据 有 多 个 重复 时 ， 可 以 使 用 循环 查询 的 方式 来 完成 操作 。 例 
如 ,在 笔记 本 销售 的 工作 表 中 ， 找 出 所 有 G470AH-ITH 笔记 本 的 销售 记录 ， 并 将 最 后 一 次 的 
订购 量 值 填 入 H3 单元 格 中 ， 具 体操 作 命 令 如 下 。 


Sub 查找 3 月 份 订购 量 () 
Dim i Rs Integer  ' 定义 i 为 整数 ,程序 中 i 是 c 列 中 G470AH-ITH 笔记 本 的 记录 数 
Dim Mrg As Range ， 定义 Mrg 为 单元 格 对 象 ，Mrg 作为 查找 的 开始 单元 格 
i = Application.CountIf (Range ("C:C"), Range("H2")) 
"调用 工作 表 函 数 count 计算 c 列 中 H2 单元 格 中 产品 名 的 个 数 
Set Mrg = Range("C3") 


' 设置 Mrg 的 初始 单元 格 为 C3， 即 在 下 面 的 查找 过 程 中 首先 从 C3 开始 查找 
For s = 1 To i ' 要 根据 G470AH-ITH 的 个 数 (i 值 ) 设置 查询 的 次 数 
Set Mrg = Range("C:C") .Find (Range ("H3"), Mrg) 
' 每 一 次 新 的 查找 都 从 查找 到 的 单元 格 开始 
Next s 
Range ("H3") = Mrg.Offset(0，1) 
" 单元 格 H3 的 值 等 于 查找 到 的 单元 格 右边 一 个 单元 格 的 值 ， 即 入 库 价格 
End Sub 


运行 该 程序 ， 可 在 H3 单元 格 中 查找 出 G470AH-ITH 笔记 本 最 后 一 个 月 的 订购 量 。 
技巧 3: 轻松 查找 区 域 中 的 最 大 值 

在 实际 应 用 中 经 常会 遇 到 要 查找 工作 表 中 最 大 值 的 现象 ， 如 查找 考试 成 绩 最 高 的 学 生 。 

使 用 VBA 可 以 找 出 区 域 中 的 最 大 值 ， 而 且 还 可 以 为 最 大 值 字体 设置 颜色 等 格式 ， 具 体 
操作 命令 如 下 。 


Sub 突出 显示 最 大 值 () 
Dim WorkRange As Range 
Dim MaxVal As Double 
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返回 工作 表 ， 选 中 要 查找 的 单元 格 区 域 ， 然 后 运行 该 程序 ， 即 可 将 所 选区 域 中 的 最 大 值 
以 红色 字体 显示 出 来 。 
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第 11 章 控制 工具 与 窗 体 控件 的 
相关 操作 


-个 完整 的 应 用 必 不 可 少 地 需要 一 些 控件 与 窗 体 来 实现 其 功能 。 控 件 工具 可 以 帮助 用 户 
高 效率 地 完成 很 多 任务 ， 从 而 达到 事半功倍 的 效果 。 本 节 将 详细 介绍 控制 工具 与 窗 体 控件 的 
操作 内 容 。 


人 :| 
对 表格 内 容 进行 处 理 


在 使 用 Excel 2010 进行 数据 处 理 与 分 析 工 作 时 ， 数 据 信 息 所 在 的 单元 格 样式 往往 不 能 满 
足 用 户 的 需要 ， 这 时 就 有 必要 对 单元 格 的 样式 进行 设计 。 并 且 当 工 作 表 中 存 有 大 量 数据 时 ， 
为 便于 查看 ， 可 以 使 用 冻结 窗 格 的 功能 。 


园 轩 实现 英文 名 称 标准 化 


在 表格 中 录入 英文 文本 时 ， 需 要 注意 其 格式 。 标 准 的 英文 录入 应 该 是 首 字母 大 写 ， 而 其 
他 字母 全 部 为 小 写 。 所 以 在 表格 编辑 时 , 需要 将 一 些 书写 不 规范 的 英文 名 称 转化 为 标准 形式 ， 
这 样 会 更 便于 信息 的 阅读 和 处 理 。 

【 例 11.1)】 在 “员工 考核 报表 ”中 添加 控件 按钮 ， 实 现 英文 名 称 标准 化 显示 ， 具 体操 作 步 
骤 如 下 。 


罗 基 在 如 图 11-1 所 示 的 “员工 考核 报表 ”工作 表 中 ,选择 【开发 工具 】 选 项 不， 在 【控件 】 
选项 区 中 单 击 【插入 】 按 钮 ， 即 可 打开 【表单 控件 】 和 【ActiveX 控件 】. 


ps PTR 全 入 门 与 实战 


EW 


EN? 


chenyan 


Sunshi 
zhengjing 


chensan 


zanlen 
xubin 


] 员工 考核 成 销 来 -SHESE CSEEEITI 


图 11-1 “员工 考核 报表 ”工作 表 


他 从 中 单 击 【 命 令 按钮 】 按 钮 妇 ， 在 工作 表 的 适当 位 置 待 鼠标 指针 变 为 “+ ”形状 时 ， 按 
住 鼠 标 左 键 不 放 ， 拖 至 适当 大 小 后 释放 鼠标 左 键 , 即 可 添加 一 个 名 为 “CommandButton1 ”的 命令 
按钮 ， 如 图 11-2 所 示 。 


11-2 添加 一 个 命令 按钮 


@ 旨 右 击 添加 的 命令 按钮 ， 在 弹出 的 快捷 菜单 中 选中 【属性 】 菜 单 命令 ， 弹 出 【属性 】 对 话 
框 ， 选 择 【 按 字母 序 】 选 项 卡 ， 然 后 在 【Caption】 文 本 框 中 输入 “英文 名 称 标准 化 ， 即 可 修改 
添加 的 命令 按钮 的 名 称 ， 如 图 11-3 所 示 。 
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CommandButtonl 


Talse 

False 

口 sk5000000F& 

1 - 名 BackStyle0paque 
标准 化 


0 - fmllousePointerDefault 
one) 
了 - fmPicturePositionAboveCer 


11-3 ”修改 命令 按钮 属性 


(@ 网 右 击 【英文 名 称 标准 化 】 按 钮 ， 在 弹出 的 快捷 菜单 中 选择 【查看 代码 】 菜 单 命令 ， 即 可 
入 该 按钮 的 代码 编辑 窗口 ， 从 中 添加 如 下 程序 代码 。 


了 
i 
和 
; 
3 
: 
F 
i 
4 
: 
3 
: 
i 
i 
i 
: 
: 
Private Sub CommandButton]1 Click() : 
1 
上 
i 
i 
了 
i 
上 
了 
上 
i 
i 
i 
i 


Ne 


Dim t Rs Variant ' 定义 变量 
With Selection  ”' 选择 区 域 
For Each t In Selection 
t.Value = StrConv(t.Value, vbLowerCase) 
， 将 所 有 的 字母 全 部 转换 为 小 写字 母 
t.Value = StrConv(t.Value, vbProperCase) 
， 将 字符 串 中 每 个 单词 的 开头 字母 转换 为 大 写字 母 
Next 
End With 
End Sub 


@ 名 代码 输入 完毕 后 , 返回 工作 表 . 为 使 工作 表 的 整体 布局 更 加 规范 , 这 里 首先 选择 第 2 行 ， 
然后 在 【开始 】 选 项 卡 中 的 【单元 格 】 选 项 区 中 ,选择 【插入 】> 【插入 工作 表 行 】 菜 单 命 令 ， 
即 可 插入 一 行 空白 单元 格 ,利用 鼠标 将 添加 的 按钮 移 到 新 插入 的 空白 行 处 ， 如 图 11-4 所 示 。 
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加 | 


图 11-4 将 命令 按钮 移 至 新 插入 的 行 中 


@@ 此 时 该 按钮 仍 处 于 设计 模式 , 用户 可 在 【开发 工具 】 选项 卡 的 【控件 】 选项 区 中 单 击 【 设 
计 模 式 】 按 钮 ， 即 可 退出 设计 模式 。 

@ 副 选择 需要 转化 的 单元 格 或 单元 格 区 域 ， 这 里 选择 “B4: B19” 单 元 格 区 域 ， 单 击 【 英 文 
名 称 标 准 化 】 按 钮 即 可 快速 实现 标准 化 转化 功能 ， 如 图 11-5 所 示 。 


11-5 ”实现 英文 名 称 标准 化 


程序 中 的 StrConV 函数 不 是 Excel 2010 的 内 置 函数 ， 因 此 在 使 用 之 前 用 户 可 以 首先 检查 
是 否 有 可 用 的 StrConV 项 。 具 体 的 操作 步骤 如 下 。 


@ 闻 在 VBA 代码 窗口 中 ,选择 【视图 】> 【对 象 浏览 器 】 菜 单 命令 ， 或 按 F2 键 ， 即 可 打开 
【对 象 浏览 器 】 窗 口 。 

@ 电 在 [搜索 文字 】 下 拉 列 表 框 中 输入 “strconv” 后 ， 按 下 Enter 键 即 可 进行 搜索 ， 搜 索 结 
果 如 图 11-6 所 示 。 


190 


第 人 1 章 控制 工具 与 窗 体 控件 的 相关 操作 


ons 一 员工 考 惑 表 ,z1sm - [对象 浏览 器] 马 扣 网 


11-6 【对 象 浏览 器 】 窗 口 
VBA 提供 的 StrConV 函数 可 以 将 不 标准 的 数据 转换 为 标准 格式 ， 其 调用 格式 为 : 
Result=StrConV (strIinput,iConversion) 
该 语句 的 转换 结果 就 是 StrConV 函数 的 返回 值 Result。 其 中 参数 strInput 代表 需要 进行 
转换 的 字符 串 。 参 数 iConversion 代表 转换 后 的 标准 格式 。 
有 关 iConversion 参数 的 设置 值 及 功能 说 明 如 表 11-1 所 示 。 
表 11-1 iConversion 参数 的 设置 值 及 功能 说 明 


iConversion 参数 设置 值 功能 说 明 
将 字符 串 中 的 字母 全 部 转换 为 小 写字 母 


使 用 系统 默认 代码 页 将 字符 串 转换 为 Unicode 
使 用 系统 默认 代码 页 将 Unicode 转换 为 字符 串 


转换 货币 数字 为 中 文 形式 
在 实际 工作 中 ， 为 了 数据 安全 ， 通 常 需要 将 数字 款项 转换 为 中 文 形式 后 ， 再 进行 转账 或 
记录 等 操作 。 
【 例 11.2】 将 已 有 表格 中 的 货币 数字 转换 为 中 文 表示 形式 ， 具 体操 作 步 又 如 下 。 
这 里 需要 使 用 Function 自 定义 一 个 循环 嵌 套 函数 standard， 然 后 对 其 进行 调用 来 实现 货 
币 数字 到 中 文 形式 的 转换 。 


上 @ 册 按照 上 节 的 方法 ， 在 工作 表 中 添加 控件 按钮 ， 并 在 其 【属性 】 对 话 框 中 的 【Caption] 文 
本 框 中 输入 “货币 形式 标准 化 ， 修 改 添 加 的 命令 按钮 的 显示 文本 ， 如 图 11-7 所 示 。 
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图 11-7 修改 按钮 属性 


@ 在 设计 模式 下 ， 双 击 添加 的 【货币 形式 标准 化 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 在 
代码 窗口 中 添加 如 下 的 程序 代码 : 


Function standard (ByVal money As Long, ByVal setunit As Integer, time As Integer) 
As String 


On Error GoTo error 


Dim danwei As Variant，shuzhi Rs Variant  ' 字 义 用 于 存储 单位 和 数值 的 两 个 数组 变量 
Dim dwx As Integer, szx As Integer ' 定 义 记录 上 述 两 个 数组 下 标的 整 型 变量 

Dim count Rs Long "定义 一 个 用 来 存储 货币 数字 的 长 整 型 变量 count 

Dim str As String "定义 用 来 存储 转换 结果 的 字符 串 变量 


Te 
danwei 
shuzhi 


Array(nn nn nino nff mr nn infin 
Array("", " 查 "， "起 "， "会 "， " 肆 "， " 伍 "， " 陆 "， "上 "， " 揭 "， " 玖 ") 


IE (Not IsNumeric(money)) And (Len(money) > 10) Then 
standard = "error" 
Exit Function 


End If 
count = Int (Abs (money))  ' 利 用 Abs 函数 获取 绝对 值 并 将 其 转换 为 整 型 赋 给 count 
If count > 0 Then "对 货币 数字 进行 逐 位 判断 


szx = count Mod 10 
count = Int(count / 10) 
dwx = setunit 
setunit = Setunit + 1 
If setunit > 4 Then ' 当 最 低 单位 量 超过 万 时 重新 计数 
time = time + 1 
If time = 2 Then ' 设 置 单位 亿 的 判断 条 件 
dwx = setunit 
End If 
setunit = 1 
End If 
If count > 0 Then 
IE (shuzhi (szx) <> "") Then 
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str = standard (count, setunit, time) & shuzhi (szx) & danwei (dwx) & str 


ElseIf (shuzhi (szx) = "") And (dwx = 4) Then 
str = standard(count, setunit, time) & danwei (dwx) & str 
Else 
str = standard(count, setunit, time) & str 
End If 
Else 
str = shuzhi (szx) & danwei (dwx) & str 
End If 
End If 


standard = str 
Exit Function 
error: 

MsgBox "系统 错误 " 
End Function 
Private Sub CommandButton2 Click() 


' 将 转化 后 的 字符 串 赋值 给 自 定义 函数 


' 提 前 退出 该 函数 ， 以 防止 在 系统 没有 错误 时 进入 错误 处 理 程序 
' 一 个 错误 处 理 程序 ， 当 系统 发 现 错误 时 就 自动 跳 转 执行 这 部 分 后 面 的 语句 


"对 自 定义 函数 standard 进行 调用 ,“CommandButton2 Click” 是 控件 名 


Dim huobi As Range 
For Each huobi In Range("H3:H22") 
huobi.offset(0，1) .Value = 
Next 
End Sub 


@ 则 返 吕 


standard (huobi.Value，0，0) & "元 " 


作 表 ， 在 【开发 工具 】 选 项 卡 的 【控件 】 选 项 区 中 单 击 【 设 计 模式 】 按 钮 ， 退 出 


设计 模式 。 然后 选择 “H3:H22” 单 元 格 区 域 后， 单 击 【 货 币 形式 标准 化 】 按 钮 ， 即 可 将 所 选单 元 


格 区 域 中 的 货币 数字 转换 为 中 文 形式 ， 如 图 11-8 所 示 。 


万 | 齐 伯 暗 全 伍 失 陆 元 


a B & D E 下 


+ 由 


SS 这 装 | 生成 于 交 和 


图 11-8 将 货币 数字 转换 为 中 文 形式 
【提示 】 本 实例 中 的 程序 只 考虑 了 位 数 不 超 过 10 的 数字 ， 如 果 数 字 超过 10 位 ， 则 会 造成 数据 的 溢出 。 
在 本 实例 的 程序 设计 中 涉及 了 ISNumeric、Offset 等 函数 ， 下 面 就 来 具体 介绍 一 下 。 
(1) ISNumeric 函数 的 作用 是 返回 Boolean 值 ， 用 来 指出 表达 式 的 运算 结果 是 否 为 数字 。 
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其 语法 格式 为 : 

IsNumeric (expression) 

其 中 参数 expression 是 一 个 Variant 变量 ， 它 可 以 包含 数值 表达 式 或 字符 串 表 达 式 。 当 整 
个 expression 的 运算 结果 为 数字 时 ， 函 数 的 返回 值 为 Tue， 和 否则 返回 False。 

(2) Len 函数 的 功能 是 返回 字符 串 中 的 字符 长 度 。 其 语法 格式 为 : 

Len (text) 

其 中 参数 text 表示 要 查找 其 长 度 的 文本 。 

(3) Offset 函数 的 作用 是 根据 指定 的 偏 移 量 返回 相对 于 某 个 单元 格 区 域 的 另 一 个 单元 格 
区 域 ， 其 语法 格式 为 : 

Offset (row, column) 

其 中 参数 row 和 column 分 别 为 行 偏 移 量 和 列 偏 移 量 。 当 它们 的 取 值 为 正 数 时 则 表示 向 
下 和 向 右 的 偏 移 量 ， 若 为 负 值 则 表示 向 上 和 向 左 的 偏 移 量 。 

(4) Abs 函数 的 功能 是 返回 数字 的 绝对 值 ， 其 语法 格式 为 : 


Abs (number) 


其 中 参数 number 表示 需要 计算 其 绝对 值 的 数值 。 


网罗 实现 冻结 窗 格 功能 


如 果 原 始 数据 表 中 含有 大 量 的 数据 ， 当 用 户 要 查看 下 面 的 信息 时 ， 需 要 在 工作 表 中 拖 动 
最 右 侧 的 滚动 条 ， 与 此 同时 每 一 列 的 列 标 也 被 移动 隐藏 了 ， 此 时 设置 “冻结 窗 格 ” 可 以 将 标 
题 冻结 ， 使 其 不 再 随 着 滚动 条 而 移动 。 

【 例 11.3】 使 用 Excel 2010 VBA 对 工作 表 中 的 固定 区 域 实现 冻结 窗 格 的 操作 并 不 复杂 ， 
下 面 就 来 设置 添加 控件 按钮 来 实现 此 功能 ， 有 具体 的 操作 步骤 如 下 。 


@ 灿 依照 上 文 介绍 的 方法 ， 在 工作 表 中 添加 控件 按钮 ， 并 在 其 【属性 】 对 话 框 中 的 【名 称 】 
文本 框 中 输入 “冻结 窗 格 "， 这 样 便于 当 工 作 表 中 VBA 过 程 较 多 时 查看 程序 ， 可 将 过 程 的 名 称 设 
置 为 与 添加 按钮 的 名 称 相同 ， 在 【Caption】 文 本 框 中 也 输入 “冻结 窗 格 "， 即 可 修改 添加 的 命令 
按钮 的 显示 文本 ， 如 图 11-9 所 示 。 
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11-9 设置 按钮 属性 


@3 在 设计 模式 下 ， 双 击 添加 的 【冻结 窗 格 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 在 代码 窗 
口中 添加 如 下 的 程序 代码 。 


Private Sub 冻结 窗 格 Click() 
With Selection 
ActiveWindow.FreezePanes = True 
End With 

End Sub 


【提示 】〗 该 代码 的 功能 是 根据 用 户 选择 的 区 域 ， 将 Window 对 象 的 FreezePanes 属性 值 设 置 为 True， 即 
设置 冻结 窗 格 。 这 样 当 用 户 选 择 某 单 元 格 后 ， 单 击 【冻结 窗 格 】 按 钮 即 可 实现 冻结 窗 格 功能 。 


@ 旨 返回 工作 表 ， 在 【开发 工具 】 选 项 卡 的 【控件 】 选 项 区 中 单 击 【设计 模式 】 按 钮 ， 即 可 
退出 设计 模式 。 然 后 选择 G5 单元 格 后 ， 单 击 【 冻 结 窗 格 】 按 钮 ， 即 可 看 到 冻结 窗 格 的 效果 ， 此 
时 当 向 下 移动 垂直 滚动 条 时 会 发 现 前 4 行 是 固定 不 动 的 ， 当 向 右 拖 动 水 平 滚动 条 时 ， 会 发 现 A 
B、C、D、E、F 列 是 固定 不 动 的 ， 如 图 11-10 所 示 。 


RCI 了 G 上 和 本 


货币 形式 标准 


11-10 实现 冻结 窗 格 


@ 弛 如 果 想 取消 冻结 窗 格 的 效果 ， 可 在 工作 表 中 切换 到 【视图 】 选 项 卡 ， 在 【窗口 】 选 项 区 
Ph 选择 【冻结 窗 格 】> 【取消 冻结 窗 格 】 菜 单 命令 即 可 。 


bl 
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【提示 】〗 在 使 用 冻结 窗 格 功 能 时 ,一 般 冻 结 的 单元 格 是 所 选中 单元 格 之 前 的 列 和 之 上 的 行 。 例 如 ， 选中 
单元 格 A6， 则 冻结 前 5 行 ; 选中 单元 格 B1， 则 冻结 前 1 列 ; 如 果 需 要 同时 冻结 行 和 列 ， 则 可 选中 行 
和 列 交 叉 处 的 单元 格 ， 例 如 选中 B7， 则 冻结 的 是 前 6 行 和 第 1 列 的 单元 格 区 域 。 


11.2 
对 产品 进行 筛选 与 排序 


在 日 常 办 公 中 , 经 常 需要 对 一 些 表单 进行 数据 的 分 析 与 统计 , 此 时 可 以 使 用 Excel 2010 提供 
的 筛选 和 排序 功能 。 本 节 将 详细 介绍 利用 VBA 代码 实现 数据 分 析 与 统计 等 功能 的 操作 方法 。 


国 实现 产品 自动 和 和 


用 户 可 以 使 用 Excel 2010 VBA 程序 实现 自动 筛选 功能 , 从 而 在 工作 表 中 查看 符合 特定 条 
件 的 所 有 记录 。 


【 例 11.4】 利 用 VBA 筛选 出 “ 实 发 工资 ”在 1500 元 以 上 的 员工 ， 有 具体 操作 步骤 如 下 。 


@@ 灿 参照 前 面 介 绍 的 方法 , 在 工作 表 中 添加 控件 按钮 ,并 在 其 【属性 】 对 话 框 的 【 按 字母 序 】 
选项 卡 中 ， 修 改 【 名 称 】 和 【Caption】 的 属性 值 ， 如 图 11-11 所 示 。 


& B 到 5 E 下 6 下 


[二 
六 的 报 字 地 os | 


ED P200. 
M4 WT 和 次 io 这 关 | 生成 二 这 条 Shert2 eet3 入 i 7 


图 11-11 修改 【第 选 】 按钮 属性 值 
@ 到 在 设计 模式 下 ,双击 添加 的 【筛选 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 在 代码 窗口 中 
添加 如 下 的 程序 代码 : 


Private Sub 筛选 click() 

Selection.AutoFilter “设置 自动 筛选 

Selection.AutoFilter Field:=8, Criterial:=">1500" "设置 筛选 条 件 
End Sub 


代码 分 析 : 利用 AutoFilter 属性 可 实现 自动 筛选 功能 ，Field:=8 表示 工作 表 中 的 第 8 列 ; 
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Criterial:=">1500" 表 示 筛 选 大 于 1500 的 记录 。 


@ 旬 返回 工作 表 ， 在 【开发 工具 】 选 项 卡 的 【控件 】 选 项 区 中 单 击 【设计 模式 】 按 钮 ， 即 可 
退出 设计 模式 。 然 后 单 击 【筛选 】 按 钮 即 可 筛选 出 工资 大 于 1500 的 员工 ， 如 图 11-12 所 示 。 


A B c D | =— 是 H 


| wet | ee | | 
Es 


“1.706 引 吝 任 妆 全 陆 元 


图 11-12 ”自动 筛选 工资 大 于 1500 的 员工 


@ 汉 运行 完 筛选 程序 后 , 如 果 想 取消 筛选 功能 , 在 工作 表 的 【数据 】 选 项 卡 的 【排序 和 第 选 ] 
选项 区 中 单 击 【 筛 选 】 按 钮 ， 即 可 取消 筛选 操作 。 


乓 纲 允 实现 产品 自动 排序 


在 分 析 数 据 时 常常 会 应 用 到 自动 排序 功能 。 合 理 的 排序 可 以 方便 查看 数据 内 容 。 


【 例 11.4】 对 “员工 工资 表 ” 实 施 自 动 排序 ， 依 据 “ 实 发 工资 ”进行 由 高 到 低 排序 ， 具 体 
操作 步骤 如 下 。 


@ 明 参照 前 面 介 绍 的 方法 , 在 工作 表 中 添加 控件 按钮 ,并 在 其 【属性 】 对 话 框 的 【 按 字母 序 】 
选项 卡 中 ， 修 改 【 名 称 】 和 【Caption】 的 属性 值 均 为 “排序 ， 如 图 11-13 所 示 。 


[ 排序 ~ 和 天 | -EMBED(’Forme.ComandButton.1’,”") 
5c 了 E ro 


画 
和 形式 标准 | 。 访 车 宣 格 起 过 | Ea 
i 证 友基 本 工 并 | 储 记 让 0 
000 


图 11-13 修改 【排序 】 按 钮 属性 


@ 到 在 设计 模式 下 ， 双 击 添加 的 【排序 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 在 代码 窗口 中 
添加 如 下 的 程序 代码 : 
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Private Sub 排序 Click() 

Range ("B3:H22") .Sort Keyl:=Range ("H3") ， Order1:=xlDescendingy 
Header:=xlGuess 

End Sub 

人 @ 划 返回 工作 表 ， 在 【开发 工具 】 选 项 卡 的 【控件 】 选 项 区 中 单 击 【 设 计 模式 】 按 钮 ， 即 可 
退出 设计 模式 . 然后 单 击 【排序 】 按钮, 即 可 实现 “ 实 发 工资 ”为 依据 的 降序 排列 功能 , 如 图 11-14 
所 示 。 


A B ec | » E 下 G 下 
一 一 -| 访 结 定格 | 。 第 迁 | | 


过 什 晤 佰 伍 失 | 
呈 | 喜 什 委 佰 陆 元 


¥1,3000| ¥2000 | ¥1500 | ¥00 | ¥143 这 任 伍佰 陆 元 
¥13000| P000 | ¥ 了 喜 什 又 佰 伍 失 { 
40001 ¥2000 | ¥ 500 | I | 喜 件 导 佰 陆 元 
[a 间作 伍佰 陆 元 
吉 件 肆 佰 伍 抬 | 


过 件数 佰 陆 元 
喜人 与 佰 陆 元 
W000 | 15 | 可 储 坏 全 陆 元 
有 0 ¥500) ¥00 | ¥1435 可 任 钩 佰 伍 拾 f 
MW EY We > a IC EE 
图 11-14 实现 降序 排列 功能 

在 该 程序 代码 中 首先 选择 排序 的 区 域 “B3:H22”， 然 后 对 该 区 域 执 行 Sort 方法 ， 即 实现 
自动 排序 。 这 里 按 “ 实 发 工资 ”降序 排列 ， 如 果 需 要 按照 其 他 字段 排序 ， 则 只 需要 修改 代码 
中 的 “H3” 即 可 。 


在 Excel 2010 中 ， 管 理 产 品 信息 的 方法 有 多 种 。 但 使 用 不 同 的 方法 其 难 易 程 度 和 处 理 数 
据 的 结果 是 不 同 的 。 下 面 将 分 别 使 用 记录 单 、VBA 程序 代码 和 VBA 控件 3 种 方法 实现 对 公 
司 产品 信息 的 管理 ， 并 且 利用 VBA 代码 实现 不 同 地 区 的 业务 比例 的 计算 。 


网 实现 记录 单 管理 


在 Excel 2010 中 ， 使 用 记录 单 管理 数据 信息 是 比较 好 的 方法 。 记 录 单 中 不 仅 可 以 显示 一 
条 完整 的 记录 信息 ， 同 时 还 可 以 利用 记录 单 添加 、 删 除 、 修 改 和 查询 任意 一 条 记录 信息 ， 其 
具体 的 操作 步骤 如 下 。 
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打开 【生成 工资 条 】 记 录 单 ， 从 中 可 以 看 到 记录 单 中 显示 了 当前 的 记录 位 置 、 


称 以 及 各 字段 的 对 应 值 等 信息 ， 如 图 11-15 所 示 。 


FETTER 


[EE 


四 
EW -Tr 


11-15 ”Sheetl 记录 单 


| vso69 全体 折 > 
5H 


工作 表 叶 


@ 到 单 击 【 新 建 】 按 钮 ， 该 记录 单 处 于 “新 建 记录 ”状态 ,分 别 在 与 各 字段 名 称 对 应 的 文本 


框 中 输入 添加 的 信息 ， 如 图 11-16 所 示 。 


图 11-16 输入 新 建 记录 单 的 信息 


8 输入 ， 按 下 Enter 键 , 即 可 将 新 建 的 记录 信息 添加 到 工作 表 中 ， 如 图 11-17 所 示 。 


[PT 天 入 门 与 实战 
[ 四 T 


ssh tment Li Lal bh et ua 


访 结 密 


own 


司 吕 国 罗 


L606 鸽 糙 元 
导 .506 引 喜 任 基 佰 尘 元 


图 11-17 显示 新 建 的 记录 信息 


网 如 果 想 要 删除 某 条 记录 ， 则 可 以 在 打开 的 记录 单 对 话 框 中 通过 单 击 【 上 一 条 】 或 【下 一 
条 】 按 钮 ， 找 到 需要 删除 的 记录 信息 ， 然 后 单 击 【 删 除 】 按 钮 ， 此 时 系统 则 弹出 一 个 确认 删除 的 
提示 信息 ， 单 击 【 确 定 】 按 钮 即 可 将 所 选 记录 删除 ， 如 图 11-18 所 示 。 


图 11-18 删除 提示 信息 


@ 加 若 要 查看 某 条 指定 的 记录 ， 可 以 单 击 【条 件 】 按 钮 ， 在 弹出 的 空白 文本 框 中 输入 查询 的 
条 件 ， 例 如 在 【员工 编号 】 文 本 框 中 输入 “1005 ， 如 图 11-19 所 示 。 

@gj 输入 完毕 后 , 按 下 Enter 键 即 可 得 到 查询 结果 。 当 有 多 个 查询 结果 时 , 可 以 通过 单 击 【上 
一 条 】 或 【下 一 条 】 按 钮 进行 逐条 查看 ， 如 图 11-20 所 示 。 


图 11-19 输入 查询 条 件 11-20 ”显示 查询 结果 
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1.3.2| VBA 程序 代码 管理 


使 用 VBA 程序 代码 同样 可 以 实现 与 上 述 记 录 单 操作 相同 的 功能 ， 如 添加 、 删 除 、 修 改 
和 查询 等 。 但 是 如 果 使 用 VBA 实现 以 上 功能 的 话 会 很 麻烦 ， 并 不 能 体现 VBA 的 高 效 办 公 特 
性 。 

但 是 使 用 VBA 查询 客户 资料 与 记录 单 相 比 ， 还 是 有 一 定 优 势 的 ， 优 点 是 能 够 直观 地 在 
工作 表 中 显示 出 查询 结果 ， 从 而 可 以 在 工作 表 中 直接 对 查询 结果 进行 修改 或 删除 等 操作 。 操 
作 水 平 比较 高 的 读者 可 以 考虑 使 用 该 方法 。 

【 例 11.5】 使 用 VBA 命令 实现 对 现 有 工作 表 的 信息 管理 ， 具 体操 作 步 又 如 下 。 


为 了 实现 VBA 程序 代码 的 快速 启动 ， 这 里 首先 设置 VBA 程序 代码 的 启动 方式 ， 即 插入 
一 张 图 片 ， 只 要 单 击 设置 的 启动 图 片 ， 即 可 执行 相应 的 程序 代码 。 


@ 则 在 Excel 2010 工作 表 的 功能 区 选择 【插入 】 选 项 卡 ,在 【插图 】 选 项 组 中 单 击 【 剪 贴画 】 
按钮 打开 【前 贴画】 对 话 框 ,如 图 11-21 所 示 。 
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11-21 【剪贴 画 】 对 话 框 


@ 到 从 中 单 击 要 插入 的 前 贴画 ,， 即 可 在 工作 表 中 插入 所 选中 的 图 片 . 利用 鼠标 调整 图 片 的 大 
小 ， 并 将 其 置 于 工作 表 合 适 的 位 置 ， 如 图 11-22 所 示 。 
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11-22 ”插入 剪贴 画 并 调整 其 大 小 及 位 置 


@ 引 右 击 插入 的 图 片 ， 在 弹出 的 快捷 菜单 中 选择 【指定 宏 】 菜 单 命令 ,打开 【指定 宏 】 对 话 
框 ， 如 图 11-23 所 示 。 


EE 人 ea 


说 明 


11-23 【指定 宏 】 对 话 框 


@ 绩 在 文本 框 中 输入 “员工 工资 查询 ”后 ， 单 击 【 新 建 】 按 钮 ， 即 可 在 VBA 代码 窗口 中 插 
入 相应 的 模块 。 在 该 模块 中 输入 如 下 VBA 代码 程序 : 


Sub 产品 信息 查询 () 
Dim i As Integer 
Dim Sellarea As String ， 定义 用 于 保存 输入 信息 的 字符 串 变 量 
Dim Rowcount As Integer ， 定义 用 于 记录 行 数 的 整 型 变量 
Dim Cunzai As Boolean  ' 定义 一 个 用 于 判断 查询 的 地 区 是 否 存在 的 布尔 变量 
Rowcount = ActiveSheet. [B3] .CurrentRegion.Rows.count 
， 把 当前 工作 表 的 行 数 赋值 iCount 
Sellarea = InputBox (" 您 好 ， 请 输入 要 查询 的 员工 姓名 : "， "员工 工资 查询 ") 
"让 用 户 输入 信息 
For i = 3 To Rowcount ， 3 表示 从 第 三 行 开始 查询 
If Cells(i，2) .Value = Sellarea Then ”2 表示 查询 第 二 列 
CunzZai = True 
MsgBox "查询 的 员工 信息 已 找到 ! "，vbOKOnly & vbInformation， "查询 结果 " 
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Rows (i) .Select ' 选择 员工 信息 所 在 的 行 
Selection.Interior.ColorIndex = 43 ' 将 查询 结果 所 在 行 填充 颜色 设置 为 绿色 
' Sheets("Sheetl1") .Select 
Exit For "退出 For 循环 
End If 
Selection.Interior.ColorIndex = 0' 当 再 次 运行 该 程序 时 取消 当前 选中 区 域 的 填充 效 


Next i 
If CunZai = False Then 
MsgBox "没有 此 员工 工资 信息 ， 请 重新 核实 ! ", vbOKOn1y & vbExclamation, "没有 找到 ! 


End If 

End Sub 

@ 国 输入 完毕 后 返回 工作 表 , 单 击 其 他 任意 一 个 单元 格 , 即 可 使 添加 的 剪贴 画 退 出 编辑 状态 。 
此 时 将 鼠标 指针 移 到 该 剪贴 画 上 ， 待 鼠标 指针 变 成 几时 ， 单 击 鼠 标 左 键 ， 即 可 运行 指定 的 VBA 
程序 代码 ， 并 弹出 【员工 工资 查询 】 对 话 框 ， 如 图 11-24 所 示 。 

@@ 在 文本 框 中 输入 要 查询 的 员工 姓名 (如 “ 张 云 ") 后 ， 单 击 【 和 确定】 按钮， 系统 即 可 弹 
出 【查询 结果 】 提 示 信 息 ， 如 图 11-25 所 示 。 


员工 工资 查询 
您 好 ,请 输入 要 查询 的 员工 姓名 : 


11-24 【员工 工资 查询 】 对 话 框 图 11-25 【查询 结果 】 对 话 框 
到 单 击 【 确 定 】 按 钮 ， 即 可 在 工作 表 中 以 绿色 显示 出 所 查询 的 地 区 ， 如 图 11-26 所 示 。 
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图 11-26 以 绿色 显示 所 查询 的 结果 


@ 台 当 工 作 表 中 没有 所 查询 的 地 区 记录 时 ， 系 统 会 弹出 【没有 找到 】 对 话 框 ,提示 用 户 不 存 
在 所 查询 的 记录 ， 请 重新 核实 ， 如 图 11-27 所 示 。 
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图 11-27 没有 找到 提示 信息 


ee | VBA 控件 查询 


除了 使 用 VBA 程序 命令 实现 信息 查询 外 ， 还 可 以 使 用 VBA 控件 来 查询 相关 信息 ， 具 体 
内 容 介 绍 如 下 。 

添加 控件 实现 通过 员工 姓名 查询 员工 实 发 工资 ， 具 体 的 操作 步骤 如 下 。 

@ 胡 为 了 便于 对 单元 格 区 域 的 引用 ， 首 先 对 “B2: C22” 单 元 格 区 域 进行 定义 。 右 击 选中 
的 “B2: C22” 单 元 格 区 域 ,在 弹出 的 快捷 菜单 中 选择 【定义 名 称 】 菜 单 命令 ,打开 【新建 名 称 】 
对 话 框 ， 如 图 11-28 所 示 。 
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11-28 【新 建 名 称 】 对 话 框 


到 在 【名 称 】 文 本 框 中 输入 “查询 基本 工资 "“， 单 击 【 确 定 】 按 钮 ， 完 成 对 选中 单元 格 区 
域名 称 的 定义 。 

@ 划 选择 功能 区 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 项 组 中 单 击 【 插 入 】 按 钮 ， 弹 出 其 相应 
的 下 拉 列 表 ， 如 图 11-29 所 示 。 


多 
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visualBasie 二 国 | jr co i 办 tt 时 本 
全 司 执 行 对 
ft 丁 加 二 项 表 闪 和 件 XML 
B5 CE 大 张 革 二 国 斩 划 四 @ | 
有 B c 症 % 引 国 间 六 加 于 
NE ActiveX 控件 
式 标准 冻结 窗 格 下 


站 各 ee A Ds 


资 
¥1500 | _ 和 0 ¥143.5 1,806 5 总 


图 11-29 控件 列表 


ta 铭 从 中 单 击 【组 合 框 】 按 钮 国 ， 在 工作 表 中 的 合适 位 置 拖 放 鼠 标 ， 添 加 一 个 组 合 框 ， 如 图 
11-30 所 示 。 


Conbogexl ~ @ | "EMBED( Forns. ConboEox.1’,””) 
A B C D E F 


串 开 式 标准 | 涉 结 间 沼 | 


La 


¥1,300.0 | 
到 200.0 


图 11-30 插入 的 组 合 杠 


@ 国 右 击 插入 的 组 合 框 ， 在 弹出 的 快捷 菜单 中 选择 【属性 】 菜 单 命令 ， 打 开 【 属 性 】 窗 
切换 到 【 按 字母 序 】 选 项 卡 中 ,在 “Style ”选项 右 侧 的 下 拉 列 表 中 选择 2-finStyleDropDownList 
选项 ， 设 置 用 户 必须 从 列表 中 选择 值 ， 如 图 11-31 所 示 。 

ConboBoxl ~ 后 天 | =EMBED( 
货币 形式 标准 


onboBox. 1°, ”") 国 


0 ~ falleuseP ointer 
#14000 3 Tre 

¥1.3000 | 六 ee 

¥13000 | E¥ EE ErshovDr pbate 
¥13000 
¥130001 


¥14000| 


¥13000} | 


¥1500 | ¥00 | 


A 0.0 = 
的 ee ht oot er | Vin 


11-31 设置 【Style】 属 性 值 
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@g 选择 LinkedCell 选项 ， 在 其 右 侧 的 文本 框 中 输入 “也 ， 即 选择 一 个 空 的 单元 格 11 作为 


显示 查询 数据 结果 的 地 方 ， 在 ListFillRange 选项 的 右 侧 文本 框 中 输入 定义 的 单元 格 区 域名 称 “ 查 
询 基本 工资 “， 如 图 11-32 所 示 。 


0 二 faListStyleplain 
0 矿 


True 

1 - follatchEntryConplete 
False 

a 


11-32 ”设置 查询 数据 结果 的 显示 位 置 
到 在 ColumnCount 选 项 右 侧 的 文本 框 中 设置 其 值 为 2, 表示 当前 引用 区 域 中 共有 2 列 数据 ， 


在 BoundColumn 选项 右 侧 的 文本 框 中 设置 其 值 也 为 2， 表 示 需 要 查找 的 是 第 2 列 单元 格 的 内 容 ， 
如 图 11-33 所 示 。 


AHBOOOOOOGA 
0 - fnBorderStylelone 
2 


False 


0 - fnDraghehaviorDissbled 
1 ~ fnDropButtonStyleArrow 


图 11-33 设置 ColumnCount 和 BoundColumn 的 属性 值 


全 单 击 Font 选项 右 侧 的 【选择 ] 按钮 |, 打开 【字体 】 对 话 框 , 从 中 选择 字体 为 Times New 
Roman， 字 形 为 “常规 ， 大 小 为 4， 如 图 11-34 所 示 。 


11-34 【字体 】 对 话 框 
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09) 【确定 】 按 钮 返回 工作 表 ， 选 择 功 能 区 【开发 工具 】 选 项 卡 ， 单 击 【 控 件 】 选 项 组 

中 【设计 模式 】 按 钮 ， 退 出 设计 模式 . 然后 在 11 单元 格 中 输入 定义 的 单元 格 区 域名 称 “ 查 询 基本 
工资 。 展 开 组 合 框 的 下 拉 列 表 ， 可 显示 出 员工 姓名 列表 ， 如 图 11-35 所 示 。 
DC TB ET I 

货币 形式 标准 | 沪 结 音 格 | 。“ 闹 造 | 排序 | 


| 定格 
17 1 1008 | 赫 华 |¥1,2000| 二 000 
M4 MH 工资 训 生成 工资 条 Sheet2 Shee13 “加 


图 11-35 显示 员工 姓名 列表 
齐名 选中 任意 一 名 员工 ， 在 单元 格 11 中 会 显示 其 基本 工资 ， 如 图 11-36 所 示 。 


| BB [3 D E 下 9 E | i 
标准 | 
1 


图 11-36 显示 所 选 员 工 的 基本 工资 


11.4 
在 用 户 窗 体 中 添加 控件 


用 户 窗 体 是 控件 的 载体 ， 也 是 建立 一 个 对 话 框 的 前 提 。 而 且 在 设计 用 户 窗 体 时 也 会 经 常 
用 到 控件 ， 例 如 标签 、 文 本 框 等 。 


网罗 二 用 户 窗 体 的 基本 操作 


用 户 窗 体 的 基本 操作 如 下 。 
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1. 插入 、 显 示 及 移 除 窗 体 
在 本 节 中 主要 介绍 如 何 插入 、 显 示 及 移 除 窗 体 ， 具 体内 容 如 下 。 


1) 插入 窗 体 
在 VBA 代码 窗口 中 选择 【插入 】>【 用 户 窗 体 】 菜 单 命令 ,可 插入 一 个 空白 窗 体 ， 插入 
后 的 窗 体 名 称 〈 默 认为 UserForml ) 会 出 现在 工程 窗口 中 ， 如 图 11-37 所 示 。 


ET 
的 ww aa yyyio 
加 


图 11-37 插入 的 空白 窗 体 


在 【工程 资源 管理 器 】 中 右 击 ， 在 弹出 的 快捷 菜单 中 选择 【插入 】>【 用 户 窗 体 】 菜 单 
命令 ， 同 样 可 以 插入 一 个 空白 窗 体 。 


2) 显示 窗 体 
在 VBA 代码 窗口 中 插入 的 窗 体 是 在 设计 模式 下 ， 如 果 需 要 在 窗 体 中 完成 一 些 功 能 ， 还 
必须 将 窗 体 脱离 设置 模式 并 显示 出 来 ， 如 图 11-38 所 示 。 


大 | =ET#D7 


We SH Sheetl Sheet2 Sheety 77 M4 | rz 
3 | 习 | [EE| 0 


11-38 运行 后 的 用 户 窗 体 
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要 运行 并 显示 窗 体 有 如 下 两 种 方法 : 


(1) 选择 窗 体 并 在 常用 工具 栏 中 单 击 【运行 子 过 程 /用 户 窗 体 】 按 钮 *。 
(2) 利用 程序 代码 显示 窗 体 。 


添加 一 个 模块 并 输入 下 面 的 代码 ， 运 行 后 可 以 显示 UserForml 窗 体 。 


Private Sub UserForm Click() 
UserForml .Show " 窗 体 的 show 方法 可 以 显示 并 运行 窗 体 
End Sub 


【提示 】〗UserForm1.Show 可 添加 到 程序 的 任何 位 置 ， 当 程序 运行 到 该 名 时 ， 便 会 显示 窗 体 ; 如 果 在 程 
序 中 使 用 UserForm1.Show 方法 但 该 窗 体 并 不 存在 ， 将 出 现 如 图 11-39 所 示 的 错误 提示 。 


[而 可 a lick 可 


+ 站 束 加 得 助 中 


图 11-39 错误 提示 


3) 关闭 窗 体 

关闭 窗 体 有 两 种 ， 一 种 是 手动 关闭 ， 即 单 击 窗 体 上 的 关闭 按钮 关闭 窗 体 ， 另 一 种 是 使 用 
代码 关闭 窗 体 。 

例如 ， 使 用 代码 实现 当 单 击 窗 体 时 关闭 该 窗 体 ， 具 体 的 操作 步骤 如 下 。 

@ 册 在 VBA 代码 窗口 中 选择 【插入 】> 【用户 窗 体 】 菜单 命令 ， 插 入 一 个 空白 窗 体 ， 然 后 
双击 该 窗 体 ， 即 可 打开 窗 体 代 码 窗口 ， 如 图 11-40 所 示 。 


i nD WD RY MD WR) Nem SHY IND Noa, BO wet -ox 
MF OO Fn 


ms 取 不 午 复 伯 扒 个 加. le -ID 


11-40 打开 窗 体 代码 窗口 
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@ 到 在 代码 窗口 的 代码 框架 中 输入 Unload UserForml 语句 ， 具 体操 作 命 令 如 下 。 


Private Sub UserForm Click() 
Unload UserForml 
End Sub 


@ 旨 当 窗 体 在 运行 并 处 于 显示 状态 时 ， 单 击 窗 体 便 会 关闭 窗 体 .。 
4) 移 除 窗 体 


移 除 窗 体 的 具体 操作 方法 如 下 。 


在 【工程 资源 管理 器 】 窗 口中 右 击 要 移 除 的 窗 体 ,在 弹出 的 快捷 菜单 中 选择 【 移 除 窗 体 】 
菜单 命令 ， 系 统 即 可 弹出 如 图 11-41 所 示 的 提示 信息 ， 如 果 不 需要 导出 ， 直 接 单 击 【 否 】 按 
钮 ， 即 可 将 其 移 除 。 


图 11-41 移 除 提示 信息 
2. 设置 窗 体 特征 


1) 窗 体 的 名 称 
新 插入 的 窗 体 需要 用 户 给 窗 体 命名 和 修改 ， 具 体操 作 方 
法 如 下 。 
新 插入 的 窗 体 如 果 是 本 工作 德 第 一 次 插入 的 窗 体 ， 窗 体 的 默 
认 名 称 为 UserForm1， 第 二 次 插入 的 窗 体 则 是 UserForm2， 再 次 
插入 的 窗 体 默 认 名 称 以 此 类 推 。 如 果 想 修改 窗 体 名 称 ， 可 以 在 窗 
体 的 【属性 】 窗 口中 修改 属性 。 在 【工程 】 窗 口中 的 窗 体 显 示 名 -一 一 
称 也 会 改 为 在 【属性 】 窗 口中 修改 后 的 名 称 ， 如 图 11-42 所 示 。 图 11-42 修改 窗 体 的 名 称 
窗 体 的 名 称 可 以 在 程序 中 直接 使 用 。 
Sub 显示 窗 体 () 


第 一 个 窗 体 . show 
End Sub 
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在 代码 中 使 用 更 为 确切 的 窗 体 名 称 会 有 利于 代码 的 维护 。 如 当 看 到 程序 中 含有 
UserForml 或 UserForm2 时 ， 可 能 不 容易 明白 正在 调用 哪个 具体 的 窗 体 。 而 “第 一 个 窗 
体 .Show” 则 可 以 很 清楚 地 知道 程序 运行 结果 是 显示 第 一 个 窗 体 。 


2) 窗 体 的 标题 栏 文字 
窗 体 的 标题 栏 文字 是 窗 体 项 部 蓝 色 区 域 所 显示 的 文字 ， 通 过 下 面 的 两 种 方法 可 以 修改 窗 
体 的 标题 栏 。 


(1) 手工 修改 窗 体 属性 中 的 Caption 属性 值 ， 即 可 把 窗 体 名 称 修 改 ， 如 图 11-43 所 示 。 
EEC 下 Cr 


图 11-43 手工 设置 窗 体 标题 栏 文字 


(2) 在 程序 中 修改 窗 体 名 称 。 
例如 ， 在 如 图 11-54 所 示 的 工作 表 中 ， 单 击 窗 体 后 使 窗 体 的 标题 栏 内 容 修改 为 单元 格 C3 
的 内 容 ， 则 可 以 在 用 户 窗 体 代 码 窗口 中 使 用 下 面 的 程序 代码 : 
Private Sub UserForm Click() 


Me.Caption = Range ("C3") .Value 
End Sub 


Ee ee [a .8| 


Wainetl East ert 了 
EW 


11-44 单 击 窗 体 改变 窗 体 的 标题 栏 文字 


34 
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3. 窗 体 事件 
窗 体 事件 是 对 窗 体 操作 引起 程序 运行 的 动作 , 如 显示 窗 体 、 单 击 窗 体 和 关闭 窗 体 等 动作 。 
下 面 以 关闭 窗 体 为 例 进 行 讲解 。 


窗 体 关闭 运行 程序 是 通过 QueryClose 事件 来 实现 的 。 
例如 要 实现 在 一 个 工程 中 ， 当 关闭 “事件 1” 窗 体 时 显示 “事件 2” 窗 体 ， 只 需 在 “事件 
1” 窗 体 的 代码 窗口 中 选择 QueryClose 事件 并 输入 以 下 代码 : 
Private Sub UserForm QueryClose(Cancel As Integer,CloseMode As Integer) 
事件 2.Show ， 当 “ 事 件 1” 窗 体 关闭 时 ， 显 示 “ 事 件 2” 窗 体 
End Sub 
在 该 程序 中 可 以 看 出 ， 在 使 用 QueryClose 事件 程序 时 ， 后 面 有 两 个 自 变量 Cancel 和 
CloseMode。 窗 体 事件 程序 中 的 自 变量 与 工作 筹 和 工作 表 事 件 一 样 ， 自 变量 的 值 也 是 从 操作 
者 操作 动作 取得 的 。 
窗 体 关 闭 事件 的 两 个 自 变 量 用 法 如 下 : 
@ Cancel As Integer: 是 否 禁止 关闭 窗 体 。 当 值 为 0 时 可 以 关闭 窗 体 ; 当 为 其 他 整数 值 时 禁止 关闭 
窗 体 。 
@ CloseMode As Integer: 窗 体 的 关闭 模式 。 如 果 操 作者 是 手工 单 击 关闭 按钮 关闭 窗 体 ， 则 
CloseMode 的 值 为 0; 如 果 操 作者 是 在 程序 中 使 用 Unload 方法 关闭 窗 体 (如 Unload Me)， 则 
CloseMode 的 值 为 1。 


例如 ， 禁 止 操作 者 使 用 窗 体 的 关闭 按钮 关闭 窗 体 ， 但 可 以 使 用 单 击 窗 体 的 方法 关闭 ， 其 
窗 体 关 闭 事件 代码 如 下 : 


Private Sub UserForm QueryClose(Cancel Rs Integer,CloseMode As Integer) 
IE CloseMode = 0 Then ， 如 果 操作 者 使 用 的 关闭 方法 是 使 用 窗 体 的 关闭 按钮 
Cancel = 1 ' 如 果 上 名 的 判断 结果 是 单 击 窗 体 的 关闭 按钮 ， 则 不 允许 退出 窗 体 
End If 
End Sub 


窗 体 单 击 代码 如 下 : 


Private Sub UserForm Click() 
Unload Me 
End Sub 


控件 插入 与 使 用 


在 介绍 了 窗 体 的 插入 和 使 用 后 ， 接 下 来 介绍 如 何在 窗 体 上 插入 控件 以 及 控件 的 使 用 。 
1. 认识 控件 工具 
在 窗 体 上 插入 控件 必须 借助 控件 工具 箱 来 完成 。 控 件 工具 箱 是 存放 各 种 控件 的 工具 栏 。 
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在 新 插入 空白 窗 体 时 会 自动 弹出 控件 工具 箱 ， 但 如 果 控 件 工具 箱 被 关闭 ， 可 以 通过 标准 工具 
栏 中 的 【工具 箱 】 按 钮 辩 来 调 出 。 
【提示 】 在 控件 工具 箱 中 ， 除 了 【选择 对 象 】 按钮 外 ， 其 他 都 是 可 以 添加 到 窗 体 上 的 常用 控件 。 
除了 常用 控件 外 ， 如 果 还 需要 添加 其 他 控件 ， 可 以 通过 以 下 步骤 把 该 控件 添加 到 控件 工 
具 箱 中 。 


@ 滑 右 击 控件 工具 箱 ， 在 弹出 的 快捷 菜单 中 选择 【附加 控件 】 菜 单 命令 ， 如 图 11-45 所 示 。 
@ 到 打开 【附加 控件 】 对 话 框 ， 在 【可 用 控件 】 列 表 中 选择 需要 添加 的 控件 ， 单 击 【 确 定 】 
按钮 ， 如 图 11-46 所 示 。 即 可 将 所 选 控件 添加 到 工具 箱 中 。 


可 用 控件 4) 


DT] ideosort lestrine Control A 
1 


显示 
厂 只 显示 所 选项 G) 


CVDIDOWS\system32\anocx 1 


图 11-45 【附加 控件 】 菜 单 命令 图 11-46 【附加 控件 】 对 话 框 


2. 从 控件 工具 箱 中 插入 控件 


在 窗 体 上 添加 控件 的 方法 : 首先 在 控件 工具 箱 中 选择 控件 , 然后 在 窗 体 上 拖 忠 出 该 控件 ， 
如 图 11-57 所 示 。 添 加 后 的 效果 如 图 11-58 所 示 。 


UserForal 


图 11-57 添加 控件 图 11-58 添加 后 的 控件 
【提示 】〗 如果 要 一 次 添加 多 个 相同 类 型 的 控件 ， 可 以 在 控件 工具 箱 中 双击 鼠标 ， 然 后 再 添加 多 个 相同 控件 。 
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技巧 1: 将 标签 的 背景 设 为 透明 


这 里 应 用 的 是 Backstyle 属性 。 当 Backstyle 值 为 0 或 fmBackStyleOpaque 时 ， 背 景 透明 ; 
当 Backstyle 值 为 1 或 fmBackStyleTransparent 时 (默认 )， 背 景 不 透明 。 


技巧 2: 如 何 控制 控件 的 尺寸 随 内 容 的 多 少 而 变化 


控件 尺寸 大 小 随 内 容 的 多 少 而 改变 的 属性 是 AutoSize。 当 AutoSize 属性 的 值 为 False 时 ， 
控件 大 小 不 随 内 容 的 多 少 而 改变 ， 当 值 为 True 时 ， 控 件 的 尺寸 大 小 随 内 容 的 多 少 而 改变 。 
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第 12 章 窗 体 控件 的 实际 应 用 


本 章 将 以 信息 安全 岗位 需求 调查 问卷 为 例 ， 详 细 介绍 窗 体 控件 在 现实 生活 中 的 应 用 。 通 
过 本 章 的 学 习 , 可 以 使 读者 掌握 岗位 需求 调查 的 问题 解决 方法 及 其 设计 思路 。 使 用 Excel VBA 
实现 对 调查 问卷 数据 的 统计 分 析 功 能 ， 不 仅 能 够 体现 Excel VBA 高 效 办 公 的 特性 ， 而 且 还 可 
以 达到 岗位 需求 调研 的 目的 。 


2 
编制 岗位 需求 调查 问卷 


岗位 需求 调查 问卷 数据 管理 就 是 在 编写 岗位 需求 调查 问卷 的 基础 上 统计 分 析 数 据 信息 。 本 节 
主要 利用 【绘图 】 和 【 窗 体 】 工 具 栏 中 的 按钮 ， 创 建 岗 位 需求 调查 问卷 ， 具 体内 容 介 绍 如 下 。 


| 调查 问卷 的 说 明文 字 


本 小 节 主 要 介绍 在 调查 问卷 中 插入 说 明文 字 的 方法 ， 其 中 用 到 了 【文本 框 】 工 具 。 使 用 
【文本 框 】 工 具 添加 完 说 明文 字 后 ， 还 可 以 设置 说 明文 字 的 大 小 、 颜 色 等 参数 。 
利用 【文本 框 】 工 具 编辑 调查 问卷 的 说 明文 字 的 具体 操作 步骤 如 下 : 


@ 册 新 建 一 张 空白 工作 短 ， 在 该 工作 簿 的 功能 区 选择 【插入 】 选 项 卡 ， 在 【文本 】 选 项 组 中 
选择 【文本 框 】 > 【 横 排 文 本 框 】 菜 单 命令 ， 当 鼠标 指针 变 为 “上 ” 状 时 ， 按 住 鼠 标 左 键 不 放 并 
拖 动 至 适当 大 小 后 释放 ， 即 可 绘制 出 一 个 空白 文本 框 ， 如 图 12-1 所 示 。 

@ 到 在 文本 框 内 输入 调查 问卷 的 说 明文 字 , 其 作用 主要 是 说 明 该 调查 问卷 的 题目 和 目的 等 内 
容 ， 如 图 12-2 所 示 。 
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12-1 绘制 文本 框 12-2 输入 文本 内 容 


Wh 


EER 入 门 与 实战 


人 @ 旬 选中 文本 框 ,使 其 处 于 编辑 状态 ,然后 在 文本 框 的 边框 上 右 击 ,在 弹出 的 快捷 菜单 中 选 
择 【 设 置 形状 格式 】 菜 单 命令 , 打开 【设置 形状 格式 】 对 话 框 ， 从 中 选择 左 侧 列表 框 中 的 【 线 型 】 


选项 卡 ， 在 右 侧 的 列表 框 中 选择 线 型 宽度 为 2 磅 ， 如 图 12-3 所 示 。 
罗 选择 【线条 颜色 】 选 项 卡 ， 从 中 选择 【 实 线 】 单 选 按钮 ， 设 置 线条 颜色 为 深 红色 ， 并 设 
置 透明 度 为 0， 如 图 12-4 所 示 。 
设置 形状 拘 式 加 加 
三 绕 弄 线条 颜色 
扣 条 颜色 寅 及 人 [EE mE OD 
xs#sw. EE-)] Et 
阴影 ED 本 名 
a 羽 War: 0- 区 国 
三 准 格式 新 头 设置 
三 准 让 防 1 EB| 
图 片 更 正 EE 
图 片 颜 鱼 
二 林业 
My 
大 小 
属性 
文本 检 
本 闻 文 字 
图 12-3 设置 线 型 图 12-4 设置 线条 颜色 


@ 加 选择 【阴影 】 选 项 上 不 ， 在 【 预 设 】 下 拉 列 表 框 中 选择 要 设置 的 阴影 类 型 ， 然 后 设置 其 阴影 
颜色 为 浅 红色 ， 并 设置 其 【透明 度 】. 【大 小 】]、[ 角 度 】、[【 距 离 】 等 属性 ， 如 图 12-5 所 示 。 


EOE 


图 12-5 设置 文本 框 阴影 
罗 国 设置 完毕 后 单 击 【 关 闭 】 按 钮 。 选择 文本 框 中 的 文本 ， 设 置 其 字体 为 “华文 楷体 ， 字 


号 为 “12 ， 并 设置 其 颜色 为 深蓝 色 .。 如 果 字 号 变 大 后 ， 文 本 框 无 法 容纳 所 有 文字 ， 可 以 拖 动 文本 
框 的 边框 ， 使 其 加 宽 或 加 高 。 此 外 ， 还 需要 选择 标题 文本 ， 使 其 居中 和 加 粗 ， 并 右 击 该 文本 ， 在 
快捷 菜单 中 选择 【设置 文字 效果 格式 】 菜 单 命令 ,弹出 【设置 文字 效果 格式 】 对 话 框 , 选择 【 阴 
影 】 选 项 卡 ， 对 标题 设置 阴影 样式 ,修改 结果 如 图 12-6 所 示 。 
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设置 文本 效果 格式 


图 12-6 设置 文本 样式 


[国策 | 编辑 单项 选择 的 调查 内 容 


为 了 便于 操作 ， 往 往 会 把 调查 问卷 中 涉及 的 问题 设置 成 单项 选择 的 类 型 ， 因 此 可 以 将 其 
设置 为 带 单 选 按钮 的 问题 形式 ， 从 而 方便 选择 ， 具 体 的 操作 步骤 如 下 。 


@ 册 在 功能 区 选择 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 项 组 中 ， 单 击 【 插 入 】 下 三 角 按钮 ， 
在 弹出 的 控件 列表 中 选择 【表单 控件 】 栏 中 的 【分 组 框 】 按 钮 叫 ( 窗 体 控件 ) ， 在 工作 表 中 当 鼠 
标 指针 变 成 “+” 状 时 ， 按 住 鼠 标 左 键 不 放 并 拖 动 至 适当 大 小 后 释放 ， 添 加 分 组 框 1， 如 图 12-7 
所 示 。 


国 加 9- 工作 往 1xlsx - Microsoft Excel ou 
x+ EL 


兴 品 2 了 司 并 六 了 图 


Visual Basic 安 


Sheet! /TE 7 
就 | 思 | | 男 吕 一 loox 呈 0 


12-7 添加 分 组 框 
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Excel 2010 VBA EE 


@ 到 将 新 添加 的 分 组 框 中 的 标识 文字 改 为 “性 别 :"， 即 可 添加 完成 一 个 “性 别 ” 分 组 框 , 如 
12-8 所 示 。 


7" 有 二 二 利生 区 E 下 6 再 
. 

2 

3 
[| 

5 

6 信息 安全 工程 师 商 位 技能 喜来 调查 才 
| 通过 此 次 岗位 技 施 调 查 ， 总 结 出 信息 安全 工程 师 现 
在 所 高 的 岗位 技能 入 未 ， 从 而 有 针 敬 注 的 完善 我 入 
10 对 信息 安全 人 才 的 培 闪 ， 能 够 更 好 榴 为 企业 ， 为 社 
11 会 提供 合格 的 职业 人 才 = 


图 12-8 修改 分 组 框 标识 文字 


@ 浊 在 【开发 工具 】 选 项 卡 的 【控件 】 选 项 组 中 ， 单 击 【 插 入 】 下 三 角 按钮 ， 在 弹出 的 控件 
列表 中 选择 【选项 按钮 】 按 钮 @ ( 窗 体 控件 ) ， 在 分 组 框 内 拖 动 至 适当 大 小 后 释放 鼠标 左 键 ， 即 
可 添加 一 个 选项 按钮 ， 如 图 12-9 所 示 。 


EEC 
| 
2 | 
3 
区 到 
5 | 
6 信息 安全 工程 师 岗 位 技能 需求 调查 麦 
| 通过 此 次 岗位 技能 调查 ， 总 结 出 信息 安全 工程 师 现 
中 | 在 所 的 没 位 技能 要 未 ， 从 而 有 针对 性 的 完善 我 被 
ol 从 信息 安全 人 才 的 培养 ， 能 够 更 好 的 为 企业 、 为 社 
1 会 提供 合格 的 职业 人 才 。 
12| 
13 
14 性 别 : 
15 | 
16 人 〇 选项 按钮 寺 
47 局 
[aa 
[19|| 
20 


图 12-9 添加 选项 按钮 
罗 选中 添加 的 选项 按钮 ,使 其 处 于 可 编辑 状态 ， 直 接 修 改 其 中 的 文字 ; 或 者 右 击 该 选项 按 
钮 ， 在 弹出 的 快捷 菜单 中 选择 【编辑 文字 】 菜 单 命令 进行 修改 . 
@@ 加 将 选项 按钮 的 标识 文字 修改 为 “ 男 "; 按 同样 的 方法 ， 在 分 组 框 内 添加 另 一 个 选项 按钮 ， 
并 将 其 标识 文字 修改 为 “ 女 ”， 如 图 12-10 所 示 。 
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技能 需求 调查 胡 
出 信息 安全 工程 师 现 


图 12-10 添加 选项 按钮 并 修改 文字 


@@j 为 了 使 调查 问卷 的 选项 按钮 更 加 醒目 ， 可 以 为 其 设置 一 些 特殊 效果 。 右 击 添加 的 【 男 】 
选项 按钮 ， 在 弹出 的 快捷 菜单 中 选择 【设置 控件 格式 】 菜 单 命令 , 打开 【设置 控件 格式 】 对 话 框 ， 
如 图 12-11 所 示 。 


图 12-11 【设置 控件 格式 】 对 话 框 


@ 副 选择 【颜色 与 线条 】 选 项 卡 ， 在 【填充 】 设 置 区 中 的 【颜色 】 下 拉 列 表 中 选择 【填充 效 
果 】 选 项 ， 打 开 【 填 充 效果 】 对 话 框 ,在 【渐变 】 选 项 卡 中 选择 【 预 设 】 单 选 按 钮 ， 从 【 预 设 颜 
色 】 下 拉 列 表 中 选择 【十 后 初 晴 】 选 项 ， 然 后 在 【 底 纹样 式 】 设 置 区 中 选中 【中 心 辐射 】 单 选 按 
钮 ， 并 在 【变形 】 设 置 区 中 选择 第 2 种 样式 ， 如 图 12-12 所 示 。 
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图 12-12 【颜色 与 线条 】 选 项 卡 


@Bj 设置 完成 后 ， 单 击 【 确 定 】 按 钮 返回 【设置 控件 格式 】 对 话 框 ， 继 续 单 击 【 确 定 】 按 钮 
返回 工作 表 中 ， 设 置 后 的 效果 如 图 12-13 所 示 。 


|! A B C D E 了 6 H 
1 | 

2 

3 | 

| 

5 

6| 信息 安全 工程 师 网 位 技能 需求 调查 表 

了 -| 通过 此 次 阅 位 技 施 亩 查 ， 总 癌 出 信息 安全 工程 师 现 
| 在 所 过 的 晃 位 技能 要 未 ， 从 而 育 针 对 法 的 完善 我 补 
io 对 信息 安全 人 才 的 培养， 能 够 更 好 的 为 企业 、 为 社 
了 1 会 提供 合格 的 职业 人 才 。 


图 12-13 设置 选项 按钮 的 样式 效果 


@gj 按照 同样 的 方法 将 添加 的 【 女 】 选 项 按钮 设置 为 同样 的 填充 效果 。 
鹿 加 | 按照 上 述 方法 ,分 别 添加 【年 龄 ]、[ 学 历 ] 和 【职业 】 分 组 框 并 分 别 设置 其 相应 的 选 
项 内 容 ， 得 到 的 最 终 效果 如 图 12-14 所 示 。 
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添加 的 选项 按钮 比较 多 ， 需 要 将 其 排列 整齐 。 可 以 通过 右 击 选项 按钮 的 方式 将 其 选中 ， 
并 按 住 鼠标 左 键 不 放 进 行 拖 动 即 可 。 对 于 不 需要 的 选项 按钮 ， 可 以 按 Delete 键 直接 删除 。 另 
外 ， 如 果 添 加 的 选项 按钮 的 大 小 不 合适 ， 可 以 利用 鼠标 在 边框 的 8 个 控 点 上 进行 拖 动 ， 即 可 
实现 选项 按钮 在 垂直 方向 、 水 平方 向 和 和 斜 向 的 大 小 变化 。 


| 编辑 下 拉 列 表 的 调查 内 容 


在 岗位 需求 调查 问卷 中 ， 很 多 问题 都 会 包括 多 种 选项 内 容 ， 而 且 文字 比较 多 ， 如 果 全 都 
是 用 单 选 按钮 的 方式 来 实现 ， 会 占用 比较 多 的 文本 空间 ， 所 以 有 必要 将 其 设计 成 下 拉 列 表 的 
形式 ， 具 体 的 操作 步 又 如 下 。 


@ 和 在 功能 


的 控件 列表 中 选择 【标签 】 按 钮 4& ( 窗 体 控件 ) ， 待 鼠标 指针 变 成 “+” 状 时 ， 按 住 鼠 标 左 键 不 放 
并 拖 动 至 适当 大 小 后 释放 鼠标 左 键 ， 即 可 添加 一 个 标签 ， 如 图 12-15 所 示 。 
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图 12-14 设置 其 他 分 组 框 内 容 


区 【开发 工具 】 选 项 卡 的 【控件 】 选 项 组 中 ， 单 击 【 插 入 】 下 三 角 按 钮 ， 在 弹出 


下 了 
， 总 结 出 信息 安全 工程 师 现 
而 有 针对 注 的 完善 我 放 
够 更 好 的 为 企业 、 为 社 


了 


12-15 ”添加 标签 控件 


的 标签 标识 文字 修改 为 “1、 贵 公司 的 业务 主要 包含 哪些 方面 ?“， 并 对 标签 的 大 
小 和 位 置 进行 相应 的 调整 ， 如 图 12-16 所 示 。 


[PT 天 入 门 与 实战 
1 B 


4 & 


c EEC 
通过 此 次 区 位 技能 调查 ， 总 结 出 信息 安全 工程 师 现 


Fe 在 所 需 的 区位 技能 要 末 ， 从 而 有 针对 福 的 完善 准 祝 
ET 对 信息 安全 人 才 的 培养 ， 施 够 更 好 的 为 企业 、 为 福 
Fr 会 提供 合 客 的 职业 人 才 。 


2 RA 
[和 “ 3 
图 12-16 修改 标签 标识 


@ 台 在 功能 区 【开发 工具 】 选 项 卡 的 【控件 】 选 项 组 中 ， 单 击 【 插 入 】 下 三 角 按钮 ， 在 弹出 
的 控件 列表 中 选择 【组 合 框 】 按 钮 围 ， 待 鼠标 指针 变 成 “+” 状 时 ， 按 住 鼠 标 左 键 不 放 并 拖 动 至 
适当 大 小 后 释放 鼠标 左 键 ， 即 可 添加 一 个 组 合 框 ， 如 图 12-17 所 示 。 


25 1、 贷 公司 的 业务 主要 包 合 嘟 些 方面 ? 


7 i 


图 12-17 添加 组 合 框 控件 


上 @ 顷 右 击 添加 的 组 合 框 , 在 弹出 的 快捷 菜单 中 选择 【设置 控件 格式 】 菜单 命令 , 即 可 打开 【 设 
置 控件 格式 】 对 话 框 ， 如 图 12-18 所 示 。 


设置 控件 格式 


大 小 | 保护 | 属性 [可 这 文字 | 


12-18 【设置 控件 格式 】 对 话 框 
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@ 加 选择 【控制 】 选 项 卡 ， 单 击 【 数 据 源 区 域 】 文 本 框 右 侧 的 【 


话 框 折 革 起 来 ， 单 击 问卷 内 容 了 


案 所 对 应 的 


元 格 


域 ， 如 图 12-19 所 示 。 


区 域 “A2: A6 ， 此 时 在 【设置 控件 格式 】 对 话 框 f 
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a B 
车 ， 责 公 司 的 J 务 主要 包含 哪些 方 4、 各 入 司 在 工程 中 才 信 哪些 限 务 器 ? 


C 
8、 贵 公司 历年 中 的 数据 库 服务 


A Sql Server 2000 


| 3 8 网 络 安全 TB FTP 服务 器 B Sql Server 2005 
4 1C 安防 监控 1 C 数据 库 服务 器 C Oracle 9i 
6! 了 产品 代理 A 到 邮件 服务 | p oracle 10g 
| 6 'E 其 1 E Lotus E DB2 
[了 和 移交 | F 04 服务 器 F SyBase 
8 sn 
9 


5 网 站 前 台 工 程 师 


折 双 】 按 钮 国 ]， 可 将 该 对 
[ 作 表 标签 Sheet2 ， 切 换 到 问卷 内 容 工 作 表 中 ， 选 择 第 一 题 待 选 答 
P 即 可 显示 添加 的 数据 源 


区 


【提示 】〗】 问 卷 内 容 工作 表 Sheet2 的 数据 必须 提前 录入 。 


10 
11 | D 网 站 后 台 开 发 工程 师 A Windows Server 2000+IIS+ASP.NET | A Exchange 2003 | 
| 12 .FE 售后 工程 师 B Windows Server 2003+IIS+ASP.NET | B Exchange 2007 
| 13 | 下 网 络 工程 师 C Windows Server 2000+APACHE+PHP | C ID 
14 ,6 信息 安全 工程 师 D Windows Server 2003+APACHE+PHP | D Lotus 
15 | H 网 站 开发 、 管 理工 程 师 E Windows Server 2000+IIS+JSP E 其 他 
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| 17 ,了 其 他 6 linux +APACHE+PHP A 术 子 鱼 
3、 
师 近 两 年 应 该 掌握 的 操作 系统 是 娜 昨 | E _ limwx+APACHE+JSP 8 其 他 
MyM Sheetl | Sheet2 CSheet3 2 | ' ] v0 


图 12-19 设置 数据 源 


区 域 


@ 团 单 击 【 设 置 控 件 格式 】 对 话 框 中 的 【展开 】 按 钮 [ 国 ， 随 即 展开 该 对 话 框 ， 为 美化 添加 


的 组 合 框 ， 选 中 【三 维 阴影 】 复 选 框 ， 如 图 12-20 所 示 。 


设置 对 象 格式 

| 大 小 ‖ 保护 ‖ 
数据 源 区 域 I) 
单元 格 链接 CC) 
下 拉 显 示 项 数 m): |8 | 

三 维 阴影 G) 


属性 | 可 选 文字 | 控制 | 
Sheet21$AS2- $AS6 
国 


图 12-20 展开 【设置 控件 格式 】 对 话 框 
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[入门 与 实战 


@ 到 单 击 【 和 确定】 按钮 返回 工作 表 Sheetl 中 ， 当 前 组 合 框 还 处 于 编辑 模式 ， 单 击 该 工作 表 
的 任意 空白 单元 格 , 退出 编辑 模式 。 然后 单 击 组 合 框 右 侧 的 下 三 角 按钮 [z], 会 弹出 第 一 题 的 待 选 
答案 列表 ， 如 图 12-21 所 示 。 

@ 旨 按照 前 面 设置 第 一 题 的 方法 来 添加 其 他 问题 。 在 实际 操作 的 过 程 中 , 可 以 右 击 添加 的 标 
签 或 组 合 框 ， 在 弹出 的 快捷 菜单 中 选择 【复制 】 菜 单 命令 ， 在 合适 的 位 置 进行 粘贴 ， 并 修改 其 文 
本 内 容 等 ， 这 样 可 以 快速 完成 其 他 问题 及 答案 的 添加 ， 添 加 完成 后 最 终 效果 如 图 12-22 所 示 。 


FETT Im ~ Mon pe | 
[EE 


epe su 


12-21 显示 第 一 题 的 待 选 答案 12-22 ”设置 其 他 标签 和 组 合 框 


| 保护 工作 表 


添加 好 的 岗位 需求 调查 问卷 内 容 ， 在 进行 调查 使 用 时 ， 是 不 允许 内 容 被 修改 的 ， 所 以 需 
要 将 已 经 设置 好 的 选项 内 容 保护 起 来 ， 这 主要 通过 对 调查 问卷 内 容 所 在 的 工作 表 设置 保护 ， 
具体 的 操作 步骤 如 下 。 


@ 册 在 工作 表 Sheetl 中 ， 选 择 功能 区 的 【审阅 】 选 项 卡 ， 在 【更 改 】 选 项 组 中 ， 单 击 【 保 
护 工作 表 】 按 钮 ， 打开 【保护 工作 表 】 对 话 框 。 在 该 对 话 框 中 选中 【保护 工作 表 及 锁定 的 单元 格 
内 容 】 复 选 框 , 在 【取消 工作 表 保 护 时 使 用 的 密码 】 文 本 框 中 输入 想 要 设置 的 密码 , 例如 “111111  ， 
然后 在 【人 允许 此 工作 表 的 所 有 用 户 进行 】 列 表 中 撤销 选中 【 选 定 锁定 单元 格 】 和 【 选 定 未 锁定 的 
单元 格 】 复 选 框 ， 如 图 12-23 所 示 

到 单 击 【 确 定 】 按 钮 ， 打开 【确认 密码 】 对 话 框 ， 在 【重新 输入 密码 】 文 本 框 中 再 次 输入 
设置 的 密码 “111111” ， 如 图 12-24 所 示 。 
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窗 体 控件 的 实际 应 用 


回 全 六 工作 表 及 组 定 的 单 天 格 肉 容 虑 ) 


取 潜 工作 家 保护 时 使 用 的 二 码 8 技术 I 
下 筑 公 司 的 多 主 要 和 全 于 此 方面 ?2 阿 [es 系统 是 者 此 | 


pal 庆 这 此 工作 才 崔 所 用 己 进 行 - 
2 [器 RCR 
28 | 
AE 
上 CC] 
A 
四 
30 [mr 癌 
于 
图 12-23 【保护 工作 表 】 对 话 框 图 12-24 【确认 密码 】 对 话 框 


Je 


@ 划 单 击 【 确 定 】 按 钮 返回 工作 表 ， 此 时 工作 表 已 经 受 保护 了 ， 如 果 再 对 工作 表 进 行 编辑 或 
修改 等 操作 ， 系 统 都 会 自动 弹出 一 个 提示 信息 框 。 


同样 , 为 了 防止 更 改 表 中 的 数据 ,按照 前 面 的 方法 可 将 问卷 内 容 工作 表 进 行 保护 设置 。 并且 
为 了 使 整体 效果 更 加 美观 ， 还 可 以 将 问卷 内 容 工作 表 进 行 隐藏 ， 具 体操 作 方 法 如 下 。 

在 该 工作 表 的 功能 区 选择 【开始 】 选 项 卡 ， 在 【单元 格 】 选 项 组 中 选择 【格式 】>【 隐 
藏 和 取消 隐藏 】>【 隐 藏 工作 表 】 菜 单 命令 ， 即 可 将 其 隐藏 ， 如 图 12-25 所 示 。 


(ETM 工作 篇 1 - Microsoft Excel co 
文件 
总， = 国 = 国 区 A 了 ai il 
Pe] 转 丢 所 时" 名- % ， jx 
将 琴 浴 办 谨 剖 
村 巾 板 到 主体 对 齐 方式 可 数字 


天 ”9 员 公 司 在 为 客户 架设 轨 伯 服务 器 时 


EE 


和 
: 


: Eh 
旺 动 可 I 完 D | | 
: 加 认 列 完 D). | 本 
D Exchange 名 件 服务 震 、 茵 角 件 服务 可见 性 | | 

5 EE3 ‘ 
6 i 
学 js 
1 了 
和 -一 一 本 

|5、 中 ， 
10 2 
1 | D 现下 后 台 开 实 工程 后 A Wiadon A 
12 | E 售后 工程 师 B Windows Server 2003+ITS+ASP. NE| 
13 | F 网 络 工程 师 C Windows Server 2000+#PACHE+PHP 图 | 和 
14 0 信息 安全 工程 D Windows Server 2003HHPACHEYPEE [一目 
15 | 网站 开奖、 管理 工程 万 ndore Server 2000+IT5 订 到。 | 畦 设置 间 元 阁 司 ( 昌 … 
15 | 工 安防 监控 工程 是 F windovs Serrer 2003HIS4JSP cS 

四 Ta HEECEEHEE 和 模子 角 


| LinwethPACHEHJSP B 其 他 


Se Sheet? CSheets 0 


1 
EE | 0% CO 人) 


图 12-25 隐藏 工作 表 
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Wh 


ETA 入 门 与 实战 


至 此 ， 已 经 完成 了 关于 信息 安全 工程 师 岗 位 需求 调查 问卷 的 设计 和 编辑 过 程 。 用 户 只 需 
将 搜集 到 的 调查 数据 按照 相应 的 问题 选项 录制 在 该 调查 问卷 中 即 可 。 

如 果 要 取消 对 工作 表 的 隐藏 ， 则 在 【开始 】 选 项 卡 的 【单元 格 】 选 项 组 中 单 击 【格式 】 
>【 隐 藏 和 取消 隐藏 】>【 取 消 隐藏 工作 表 】 菜 单 命令 ， 即 可 取消 对 工作 表 的 隐藏 。 


12.2 
汇总 岗位 需求 调查 问卷 结果 


只 是 创建 了 岗位 需求 调查 问卷 的 内 容 样 式 ， 并 不 能 满足 获得 岗位 需求 调查 结果 的 目的 ， 
还 需要 对 调查 结果 进行 统计 分 析 。 下 面 将 为 控件 设置 相应 的 单元 格 链接 ， 并 利用 Excel VBA 
程序 将 调查 问卷 的 结果 汇总 成 记录 信息 。 


i 为 控件 创建 单元 格 链接 


通过 为 控件 设置 单元 格 链接 ， 可 以 实现 将 调查 结果 的 选项 内 容 与 某 一 单元 格 或 单元 格 区 
域 联系 起 来 ， 从 而 将 每 一 个 调查 问题 的 选择 结果 转化 为 相应 的 数字 信息 ， 并 以 数字 形式 保存 
在 该 单元 格 或 单元 格 区 域 中 ， 从 而 获得 最 终 汇总 调查 结果 。 

为 控件 创建 单元 格 链接 的 具体 操作 步骤 如 下 。 


@ 遇 在 工作 表 中 创建 用 来 暂时 存放 各 选项 按钮 和 组 合 框 信息 的 单元 格 区 域 ， 其 形式 如 图 
12-26 所 示 。 


32 A Web 器 A Windovs Server 2000+ITs[z] [A Sniffer Pro [ 


34 T、 侦 公司 的 历年 工程 中 的 PT? 服务 器 搭 。。 8、 侦 公司 历年 中 的 数据 库 服务 器 都 是 哪 。 9、 货 公司 在 为 客户 架设 邮件 服务 中 
35 建 都 富 用 哪些 软件 了 些 数据 库 产品 ? 曾经 用 到 的 都 有 哪些 邮件 服务 器 产 


36 | ASerry 口 [LA Sa Server 2000 - 问 |_A Exchange 2003 [ 


42 调查 问卷 结果 汇总 


43 性别。 年 痊 ”学 历 ”职业 第 一 题 第 二 题 第 三 题 第 四 题 第 五 题 第; 


12-26 ”创建 存放 各 选项 信息 的 单元 格 区 域 
@ 到 为 分 组 框 中 的 选项 按钮 创建 单元 格 链接 。 右 击 【 性 别 】 分 组 框 中 的 【 男 】 单 选 按钮 ， 在 
弹出 的 快捷 菜单 中 选择 【设置 控件 格式 】 莱 单 命令 ,打开 【设置 控件 格式 】 对 话 框 ， 如 图 12-27 
所 示 。 
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图 12-27 


第 12 章 窗 体 控件 的 实际 应 用 


卷 结果 汇 总 ”单元 格 区 域 中 选择 用 于 


【设置 控件 格式 】 对 话 框 


@ 旨 在 【控制 】 选项 卡 中 单 击 【单元 格 链接 】 文 本 框 右 侧 的 【 折 芭 】 按 钮 国 ， 在 “调查 问 
FF 存放 “性别” 数据 的 单元 格 A44， 如 图 


12-28 所 示 。 


a 


32 AWeb 


A Sor 


(@ 绩 单 击 【 设 置 控件 格式 】 对 话 框 中 的 【展开 】 按 钮 国 ， 展 开 【 设 置 控件 格式 】 对 话 框 ， 


| 
你 


[a 


【确定 】 按 钮 即 可 。 


B 


eT] 


年 准 


C 


和 贵 公司 在 工程 中 都 做 哪些 服务 器 了 


S| 


34 T、 贵 公司 的 历年 工程 中 的 FT 服务 器 拱 
35 建 都 常用 哪些 软件 了 


器 


D 正 了 Gc 
S、 贷 公司 的 历年 工程 中 的 YE 服务 器 搭 
建 都 基于 哪些 环境 ? 


A Windows Server 2000+IIS[w 


3、 侦 公 司 历年 中 的 数 澳 库 服务 器 都 是 哪 
此 数据 库 产品 ? 


A Sql Server 2000 了 


H 和 


5、 贷 公司 在 解决 隐形 故障 常用 的 > 


探 器 都 有 哪些 ? 


A Sni ffer Pro 


9、 代 公司 在 为 客户 架设 邮件 服务 
曾经 用 邓 的 都 有 哪些 邮件 服务 器 产 


A Exchange 2003 


调查 问卷 结果 汇总 


学历 


设置 控件 格式 


职业 ”第 一 题 第 二 题 第 三 题 第 四 题 第 五 题 第 


图 12-28 设置 性 别 单元 格 的 链接 


@ 国 此 时 如 果 单 击 【 性 别 】 分 组 框 中 的 【 男 】 单 选 按 钮 ， 在 单元 格 A44 上 


Ls | 


[ 


[ 


hp 将 自动 显示 与 之 
对 应 的 数值 “1 ;如 果 单 击 【 女 】 单 选 按钮 ， 则 会 自动 显示 数值 为 “2 ， 如 图 12-29 所 示 。 
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DC 区 本 


a D 3 EE | 

| 型 | 

23 

24 1 二 3 您 认为 上 述 技术 岗位 上 的 芽 

工 足 公 司 的 此 务 主要 包 合 哪些 方面 ? “2、 货 公司 帮 安 排 有 哪 毕 法 本 岗位 ? 两 年 应 法学 拔 的 扫 作 系统 二 硅 此 ” 

26 
[27| [让 有 了 系统 工程 师 [el A Windows Server 2000 
,28 

29 公司 3 南 公 司 的 历年 工程 中 的 YEB 服 务 器 搭 。 8、 货 公司 在 解决 障 形 故 隧 牢 用 的 》 

30 4 误 公 司 在 工程 中 部 做 哪些 服务 器 了 可 5 9 

31 

32 Br 了 A Yindows Server 2000tIISLY] [saitter my [ 
[型 

[se | 下 、 呐 公司 的 历年 工程 中 的 FTP 服务 器 搭 。。 8、 人 足 公 司 历年 中 的 数据 库 最 务 器 都 时 哪 。 ”中 、 人 中 公司 在 为 客户 架设 邮件 服务 

35 。 。。 建 都 守 用 哪些 次 件 ? 二 产品 ? 守 经 用 到 的 都 有 哪些 邮件 服务 器 

各 [se 器 [5m Serve 2000 器 [Exshange 2003 

38 

39 时 

40 

4 

42 调查 问卷 结果 汇总 

43 性 别 年 痊 。 和 学历 ”职业 第 一 题 第 二 题 第 三 题 第 四 题 第 五 题 第 
| | 

5 U 
EE - 一 一 一 天 


图 12-29 选择 性 别 时 显示 相应 数值 


【提示 汇总 数据 中 显示 的 数据 是 当前 选项 所 选 选项 的 排序 号 。 例 如 ,选择 【年 龄 } 选 项 中 的 第 三 个 [31~40 


岁 】 


建 
开 


， 在 对 应 的 汇总 结果 单元 格 中 就 会 显示 “3”。 


@g 按照 同样 的 方法 ,分别 为 其 他 组 合 框 中 的 选项 按钮 创建 单元 格 链接 。 接 下 来 为 组 合 框 创 
E 元 格 链接 。 右 击 第 一 题 的 组 合 框 ， 在 弹出 的 快捷 菜单 中 选择 【设置 控件 格式 】 菜 单 命令 ， 打 
【设置 控件 格式 】 对 话 框 ， 在 【控制 】 选 项 卡 中 单 击 【单元 格 链接 】 文 本 框 右 侧 的 【 折 释 】 按 


钮 国 ， 在 “调查 问卷 结果 汇总 ”单元 格 区 域 中 选择 用 于 存放 “第 一 题 ”数据 的 单元 格 E44， 如 图 
12-30 所 示 。 


ho 
起 
[=n 
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a B 3 7 E 下 [3 上 下 | 
23 
24 23、 你 认 为 上 注 技术 册 位 上 由 工 4 
3 1 货 公 司 的 业主 要 入 全 哪些 方面 ? 。。 2、 侦 公司 都 安排 有 寺 比 技术 尘 位 ? 两 年 应 这 学 所 的 操作 系统 是 昌 此 " 
26 了 
[古旧 rr re i 


329。 筑 公 司 在 工程 中 都 些 服务 吉 ?。。。 5、 贷 公 司 的 历 征程 中 的 WE5 肯 务 器 挡 。 5、 真 公司 在 角 风 隐 开 的 隐 第 用 8 
建 和 基 于 击 旷 环境 ? 扩 和 有 于? 


32 Cw 加 rs] [Asia [ 


34 下 佣 公 司 的 历年 工程 中 的 FT 服务 器 接 。。 6、 售 公司 历年 中 的 泊 据 庄 呈 务 加 和 里 别 9、 货 公司 在 为 客户 架设 邮件 服务 E | 
35 | 。 建 才 党 用 志 些 软 全 ? 所 库 产 品 ? 重 经 必 到 的 部 有 哪些 邮件 服务 器 产 
0 Serv 回 Csewamm 器 Ere os 


2 调查 问卷 结果 汇总 


43 性 到 年 痊 学历 职业 第 一 题 第 二 题 第 三 题 第 四 题 第 五 题 第 


一 M| Sheetl “Sheet2 Sheet3 HH Wa 四 ] all 
12-30 设置 “第 一 题 ”的 组 合 框 链接 

到 单 击 【 设 置 控件 格式 】 对 话 框 中 的 【展开 】 按 钮 图]|， 返回 到 【设置 控件 格式 】 对 话 框 ， 

二 【确定 】 按 钮 ， 完 成 设置 。 

人 @ 昌 按照 同样 的 方法 , 为 其 他 组 合 框 设置 单元 格 链接 。 当 在 调查 问卷 中 进行 选择 时 ， 即 可 将 
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[Br Be | .el | i 


23 


24 本 3、 姿 内 为 上 述 技术 岗位 上 的 工程 HRiE 
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27 3 | BE 器 Bintows Server wo03 [3] 
28 

公司 在 工程 中 都 启 哪 些 服 务 器 ? 5、 侦 公 司 的 历年 工程 中 的 rEB 肢 务 器 措 Ds 
-30 计生 于 此 境 ? 和 

31 

> Ea | EE 百 
33 

34 ne 二 仙人 司 矶 年 中 的 长 服 名 可 是 关 。 并 公 司 全 为 让 兴 溢 人 李 各 和 时 ， 
“55 用 电 些 钦 件 ? 各 涛 过 库 产品 9 l 返 用 忆 史 ] 那 有 哪些 地 件 服 务 器 产品 ? 
和 et 加 [raw 一 癌 Te | | 


42 调查 问卷 结果 汇总 


43 年 龄 学历 职业 第 一 题 第 二 题 第 三 题 第 四 题 第 五 题 第 六 题 第 
4 2 3 3 3 6 2 5 5 2 


人 
NH 4 PH| Shestl Sheet Sheet 二 TH 四 ? 


12-31 显示 调查 问卷 中 的 结果 


服 及 可 实现 自动 记录 功能 


其 对 应 的 选项 转化 为 相应 的 数值 显示 在 “调查 问卷 结果 汇总 ”单元 格 区域 中 ， 如 图 12-31 所 示 。 


要 想 实现 调查 结果 的 自动 记录 功能 ， 首 先 要 确定 保存 调查 结果 信息 的 工作 表 ， 然 后 编写 


具有 自动 记录 功能 的 VBA 程序 代码 ， 具 体 的 操作 步骤 如 下 : 
@ 明 右 击 工作 表 标 签 Sheet2 , 在 弹出 的 快捷 菜单 中 选择 【 重 命名 】 菜单 命令 ， 


工作 表 Sheet2 


命名 为 “问卷 内 容 ， 使 用 同样 的 方法 将 工作 表 Sheet3 命名 为 “数据 汇总 ， 用 来 确定 保存 调查 结 


果 信息 的 工作 表 ， 然 后 将 工作 表 Sheetl 中 “调查 问卷 结果 汇总 ”单元 格 区 域 中 的 数据 整理 到 该 工 


作 表 中 ， 如 图 12-32 所 示 。 


|r Fe 


i 
基本 信 El 


Wi 性 别 年 痊 学 历 事业 一 二 三 四 五 六 七 作 九 


RISESET 问卷 内 容 ] 数据 汇总 LD WL Cm i i 


图 12-32 设置 单元 格 区 域 的 数据 显示 


@ 双 选择 功能 区 【开发 工具 】 选 项 卡 ， 单 击 【 代 码 】 选 项 组 中 的 【Visual Basic】 按钮, 打开 
VBA 代码 窗口 ,在 【工程 管理 器 】 窗 口 的 任意 位 置 右 击 , 从 弹出 的 快捷 菜单 中 选择 【插入 】> 【 模 
块 】 菜 单 命令 ,插入 一 个 新 模块 ， 双 击 该 模块 ， 在 菜单 栏 中 选择 【插入 】》> 【过 程 】 菜 单 命令 ， 
打开 【添加 过 程 】 对 话 框 , 在 【名 称 】 文 本 框 中 输入 “自动 记录 ”， 在 【类 型 】 选 项 组 中 选中 【 子 
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程序 】 单 选 按钮 ， 在 【范围 】 选 项 组 中 选择 【公共 的 】 单 选 按钮 ， 如 图 12-33 所 示 。 


添加 过 程 


名 称 中 [夺权 万 委 ES 
类型- 
人 子 程序 四) Ei 
广 函 获 四 
个 属性 他 
苑 轩 


个 公共 的 加 
广 所 有 的 中 


厂 把 所 有 局 部 支 量 声 明 为 天 者 变量 (A) 


12-33 【添加 过 程 】 对 话 框 


@ 旨 单 击 【 确 定 】 按 钮 系统 将 自动 添加 一 个 “自动 记录 ”公有 子 过 程 ， 然 后 在 该 子 过 程 中 添 
加 以 下 程序 代码 。 


Public Sub 自动 记录 () 

Dim i As Integer ' 定 义 用 来 保存 工作 表 中 占用 单元 格 行 数 的 整 型 变量 

Dim k As Integer “定义 用 来 保存 调查 结果 记录 行 数 的 整 型 变量 
i=Sheets ("数据 汇总 ") . [A1] .CurrentRegion .Rows .Count ' 工 作 表 “ 数 据 汇 总 ”的 记录 行 数 
k=i = 3 "工作 表 中 有 3 行 单元 格 保存 字段 名 
Sheets ("Sheet1") .Select 
Range ("R44:N44") .Select “选择 需要 保存 数据 的 区 域 
Selection.Copy ' 对 选择 的 数据 区 域 进行 复制 
Sheets ("数据 汇总 ") .Activate “，' 激 活 工作 表 “ 数 据 汇总 ” 
Cells (i + 1，2) .Select ' 选 择 工作 表 中 最 后 一 条 记录 的 下 一 行 单元 格 区 域 
ActiveSheet .Paste ' 粘 贴 数据 
Cells (i + 1，1) .Value = k + 1' 实 现 数据 记录 的 自动 编号 功能 
Sheets ("Sheet1") .Select 
Application.CutCopyMode = False “' 释 放 进行 复制 操作 的 单元 格 区 域 
MsgBox "记录 已 成 功 保存 ， 谢 谢 您 的 合作 ! "， vbOKon1y， "提交 信息 " 

End Sub 


在 这 段 代 码 中 ， 首 先 定义 两 个 分 别 用 来 记录 工作 表 “ 数 据 汇 总 ”中 单元 格 的 记录 行 数 和 
现 有 调查 结果 的 记录 行 数 的 整 型 变量 i 和。 然后 使 用 Copy 方法 对 工作 表 Sheetl 中 选 定 的 单 
元 格 区 域 “A44:N44” 进 行 复制 操作 , 再 使 用 Paste 方法 将 这 些 数据 粘贴 到 工作 表 “ 数 据 汇 总 ” 
中 最 后 一 条 记录 的 下 一 行 单元 格 中 , 并 实现 数据 记录 的 自动 编号 功能 。 最 后 释放 工作 表 Sheetl 
中 进行 复制 操作 的 单元 格 区 域 ， 并 以 消息 对 话 框 的 形式 输出 记录 的 保存 结果 。 


多 代码 输入 完毕 后 , 为 便于 快速 执行 该 代码 , 可 在 工作 表 中 为 其 设置 VBA 程序 运行 按钮 。 
即 选择 功能 区 【开发 工具 】 选 项 卡 ， 单 击 【 控 件 】 选 项 组 中 的 【插入 】 按 钮 ， 在 弹出 的 下 拉 列 表 
中 单 击 【 按 钮 】 控 件 型 ， 然 后 在 工作 表 Sheetl 的 适当 位 置 按 住 鼠 标 左 键 不 放 并 拖 动 至 适当 大 小 
后 释放 ， 此 时 系统 自动 打开 【指定 宏 】 对话 框 ， 在 【 宏 名 】 列 表 框 中 选择 【自动 记录 】 选 项 ， 如 
12-34 所 示 。 
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第 12 章 窗 体 控件 的 实际 应 用 


图 12-34 指定 宏 名 称 


@ 鲍 单 击 【 确 定 】 按 钮 ,返回 到 工作 表 Sheetl 中 ， 在 该 按钮 上 单 击 鼠 标 右键 ， 从 弹出 的 快 
捷 菜 单 中 选择 【编辑 文字 】 菜单 命令 ， 将 按钮 的 标志 文字 更 改 为 “提交 问卷 结果 ， 如 图 12-35 
所 示 。 


人 B C D E 了 有 到 
55 。 。 如 半 和 用 强 软 7 a HR 
了 rm 5 ora 日 。 [Ee 
38 
39 Ls 人 站 
40 ]_ 提 文 间 关 结果 【 
刀 
刀 调查 问卷 结果 汇总 
43 | 性 列 年 部 学历 职业 第 一 题 第 二 题 第 三 题 第 四 题 第 
姓 2 2 3 3 3 6 2 5 
«5 
#6 
47 
#48 
4 
50 = 
4 | Sheetl ,人 朵 闪 内容 “其 据 汇 划 二 氏 ED L nl 


图 12-35 ”修改 按钮 文字 
@gj 右 击 添加 的 “提交 问卷 结果 ”按钮 ， 在 弹出 的 快捷 菜单 中 选择 【设置 控件 格式 】 菜 单 命 
令 , 打开 【设置 控件 格式 】 对 话 框 ,在 【字体 】 列 表 框 中 选择 “华文 新 魏 "， 在 【字形 】 列 表 框 中 
选择 “常规 ， 在 【字号 】 列 表 框 中 选择 “14 ， 在 【下 划 线 】 下 拉 列 表 中 选择 “ 单 下 划 线 ”选项 ， 
在 【颜色 】 下 拉 列 表 中 选择 “深蓝 色 "， 如 图 12-36 所 示 。 


设置 控件 格式 


| 避 软 千 越 AaBbCc -| 


这 是 TrasType 字 仁 。 屏 夏 和 打印 机 上 都 格 使 用 二 字体 


CC ] Cm ] 


图 12-36 【设置 控件 格式 】 对 话 框 


231 


[天 入 门 与 实战 


网 设置 完毕 后 ， 单 击 【 和 确定】 按钮 ， 按 钮 文字 的 设置 效果 如 图 12-37 所 示 。 
4 a 下 站 5 下 al a | 
3 引 5 | 。” 建 履 党 用 志 些 软件 ?了 库 产 品 ? 尖 寻 用 到 9 都 有 有 哪 ! 
中 | [wr el [Core 器 [了 chenee A 
38 


司 | 调查 问卷 结果 汇总 


43| 性 到 年 趣 学 历 职业 第 一 超 第 二 题 第 三 题 第 四 题 第 
3 6 2 5 


44 2 2 3 3 

45 

4 

| 司 
a 

| 

50 | = 
iT sheetl / 问 业 兴业 江 基本 Ce | wh 


图 12-37 ”按钮 文字 的 设置 效果 
AQ 单 击 工作 表 的 任意 位 置 ,可 退出 该 按钮 的 编辑 状态 。 此 时 当 完 成 问卷 内 容 后 ,将 鼠标 移 


至 【提交 问卷 结果 】 按 钮 ， 指 针 将 变 为 如， 单 击 该 按钮 即 可 对 本 次 结果 进行 提交 ， 并 弹出 提示 信 
息 ， 如 图 12-38 所 示 。 


iT sheet! / 问 戎 内容 了 数 所 汇总 卫生 Ls » 
图 12-38 ”提交 信息 


@gj 完成 所 有 问卷 结果 的 提交 后 ， 可 以 切换 到 【数据 汇总 】 工 作 表 中 ,调查 问卷 结果 的 保存 
情况 如 图 12-39 所 示 。 


a & B ct 5 pp FT 
1| 调查 问卷 结果 汇总 
基本 信息 问题 编号 
3 性 别 年 瞪 有 学历 职业 一 二 三 四 五 六 七 入 万 
生 
5 
6 
如 琶 | 
18 
| 9_ 
[0 
| 
12| 
13 
1 
15 司 
| ”Sheetl 7 癌 痊 末 字 | 数据 汇总 《可 下 CE 2 


12-39 调查 结果 显示 
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12.3 
统计 分 析 岗 位 需求 调查 问卷 结果 


前 面 所 创建 的 调查 问卷 ， 除 了 有 具有 汇总 调查 结果 的 功能 ， 还 具有 自动 记录 的 功能 ， 但 是 
还 不 能 对 调查 结果 进行 统计 分 析 。 下 面 将 使 用 Excel VBA 对 自动 记录 的 调查 问卷 数据 进行 统 
计 分 析 ， 从 而 实现 需求 调研 的 目的 。 


| 创建 岗位 需求 调查 数据 统计 表 


在 利用 VBA 实现 岗位 需求 调查 问卷 结果 的 统计 和 分 析 之 前 ， 首 先 需要 创建 一 张 用 于 保 
存 统 计 结果 的 调查 数据 统计 表 ， 即 在 该 表 中 实现 对 各 个 选项 结果 的 分 类 统计 ， 具 体 的 操作 步 
又 如 下 。 


@ 贡 在 “数据 汇总 ”工作 表 的 后 面 插入 一 张 新 表 ， 将 其 命名 为 “调查 统计 表 " ， 并 在 该 工作 
表 中 添加 相应 字段 内 容 ， 其 中 “选项 编号 ” 列 用 于 显示 调查 问卷 中 各 个 答案 对 应 的 序列 号 ， 锥 
12-40 所 示 。 


a B16 [本 站 ou BF EN | 

1 岗位 需求 调查 数据 统计 表 

2 | 选项 基本 信 题目 序 

3 | 编号 | 性 到 | 年 零 | 等 历 | 职业 | 一 二 三 “ 避 酸 强 区 .3 

4 1 

5 和 

6 3 

4 

8 S 

9 | 
10 | 
11_ | 
12 | | 

13 

14 

15 v 
HN 4H Sheet1 人 可 准 内 容 “数据 汇总 | 调查 统计 表 《 轨 人 4[[ TE ?了 


图 12-40 插入 新 表 并 添加 字段 内 容 
@ 节 为 便于 看 表 中 各 列 所 对 应 的 “选项 编号 ”的 意义 ， 可 为 其 添加 上 相应 的 批注 。 例如, 右 
击 “ 性 别 ” 字 段 名 称 ， 在 弹出 的 快捷 菜单 中 选择 【插入 批注 】 菜 单 命令 ， 在 弹出 的 【插入 批注 】 
文本 框 中 输入 批注 的 内 容 ， 如 图 12-41 所 示 。 
@ 引 按照 同样 的 方法 , 为 其 他 字段 插入 相应 的 批注 。 然 后 当 鼠 标 指针 移 到 插入 批注 的 字段 右 
上 角 的 红色 “和 斜 三 角 ” 处 ， 系 统 将 自动 显示 出 批注 的 内 容 。 


【提示 】〗 用 户 如 果 需 要 修改 或 删除 插入 的 批注 ， 可 以 右 击 插入 批注 的 单元 格 ， 在 弹出 的 快捷 菜单 中 选择 
【编辑 批注 】 【删除 批注 】 或 【显示 /隐藏 批注 】 菜 单 命令 。 
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EY C D | 


[ml [EE I EL 加 下 | | 

1 岗位 需求 调查 数据 统计 表 

2 | 选项 | 题目 序号 

3 | 编号 | 性 到 职 至 | 一 和 柯 | 王 |] 六 

4 1 

| 2 

四 3 "| 

EE 4 

I 

9 

10 

11 

[12 

13| 

| 

15 1 > 

M 4 NT Sheetl 何故 内 容 数据 汇总 | 调查 统计 表 Bm | il 
图 1241 插入 批注 


统计 分 析 调 查 问 卷 结 果 

市 场 调查 数据 统计 表 创建 完成 后 , 需要 利用 Excel VBA 程序 代码 对 调查 问卷 的 结果 进行 
统计 分 析 ， 并 将 统计 结果 图 表 化 ， 以 便 清晰 直观 地 查看 调查 结果 。 
1. 自动 统计 调查 结果 

利用 VBA 代码 对 汇总 的 数据 进行 统计 分 析 ， 具 体 的 操作 步骤 如 下 。 


@ 册 选中 【调查 统计 表 】 工 作 表 ， 选 择 功 能 区 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 项 组 中 单 
击 【 插 入 】 按 钮 ， 在 弹出 的 列表 中 单 击 【ActiveX 控件 】 组 中 的 【命令 按钮 】 按 钮 浊 | (ActiveX 控 


件 )， 在 工作 表 的 合适 位 置 添加 用 于 执行 VBA 程序 的 控件 按钮 ， 如 图 12-42 所 示 。 
ET TNE ItE1 - Microsoft Excel EF 可 = o 加 
| >e BE a@-9z 

RE EE 
Visual Basic ” 安 3 村 项 COM jp 台 项 插入 rt 交 寺 面板 
民权 地 项 控件 XML 修改 
| ConnandButtonl ~ 所 EE| =ENEED(’Foras.ConnandButton.1’,””) 加 
5 | 


| 让 
[ww Wi | 
TIE 届 回 国 _look OC 人 @ 


图 12-42 添加 命令 按钮 控件 
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到 右 击 该 按钮 ， 在 弹出 的 快捷 菜单 中 选择 【属性 】 菜 单 命令 ,打开 该 按钮 的 【 
口 , 在 【 按 字母 序 】 选项 卡 的 【名 称 ] 文本 框 和 Caption 文本 框 中 均 输 入 “统计 数据 ", 妇 
所 示 。 


1 - fnBackStyleDpe 
统计 数据 


0 - fmllousePointer] 
Qone) 

on 7 ~ fnPicturePosit: 
2 
True 
False 


ow 
[TakeF ocusOnClick True 


图 12-43 ”修改 按钮 属性 
上 @ 引 双击 新 添加 的 按钮 ， 即 可 打开 VBA 代码 窗口 ， 在 其 中 输入 以 下 程序 代码 。 


Private Sub 统计 数据 Click() 
Dim i，j As Integer  ' 定 义 用 于 循环 的 整 型 变量 
Dim count As Integer ' 定 义 用 于 保存 记录 数 的 整 型 变量 
Dim temp As Variant "定义 用 于 读 取 单 元 格 内 容 的 变 体型 变量 
count = Sheets (" 数 据 汇 总 ") . [A1] .CurrentRegion.Rows .count ' 统 计 工 作 表 “数据 汇总 ” 
"中 的 记录 数 
Sheets (" 调 查 统计 表 ") .Select 
For Each temp In Range("B4:N8") 
temp .Value = "" “将 单元 格 区 域 “B4:N8” 中 的 值 置 空 
Next temp 
For i = 4 To count 
For 了 = 2 To0 15 
Select Case Worksheets ("数据 汇总 ") .Cells (i，j) 
， 对 工作 表 “ 数 据 汇总 ”中 的 单元 格 内 容 执 行 Select Case 语句 
Case 1 
Worksheets ("调查 统计 表 ") .cells (4，j) = Worksheets ("调查 统计 表 ") .Cells (4， 


: ' 加 果 “数据 汇总 ”中 单元 格 值 为 1， 则 “调查 统计 表 ” 中 对 应 的 单元 格 的 统计 数值 加 1 
es .Cells (5, j) = Worksheets ("调查 统计 表 ") .Cells (5，, 
E 加 果 “数据 汇总 ”中 单元 格 值 为 2， 则 “调查 统计 表 ” 中 对 应 的 单元 格 的 统计 数值 加 1 
Ea .Cells (6, j) = Worksheets ("调查 统计 表 ") .Cells (6, 
TE 


， 如果“ 数据 汇总 ”中 单元 格 值 为 3， 则 “调查 统计 表 ” 中 对 应 的 单元 格 的 统计 数值 加 1 
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Case 4 
Worksheets ("调查 统计 表 ") .Cells (7, j) = Worksheets ("调查 统计 表 ") .Cells (7， 
pb 
， 如 果 “ 数 据 汇 总 ”中 单元 格 值 为 4， 则 “调查 统计 表 ” 中 对 应 的 单元 格 的 统计 数值 加 1 
Case 5 
Worksheets ("调查 统计 表 ") .Cells (8, j) = Worksheets ("调查 统计 表 ") .Cells (8， 
ET 
"如果 “数据 汇总 ”中 单元 格 值 为 5， 则 “调查 统计 表 ” 中 对 应 的 单元 格 的 统计 数值 加 1 
End Select 
Next j 
Next i 
Sheets ("调查 统计 表 ") .Select 
End Sub 


在 这 段 代码 中 , 首先 利用 For Each 循环 语句 将 工作 表 【 调查 统计 表 中 的 单元 格 区 域 “B4: 
N8” 置 室 ， 然 后 在 双重 For 循环 中 使 用 Select Case 语句 自动 统计 调查 问卷 数据 结果 ， 最 后 返 
回 到 工作 表 “ 调 查 统计 表 ” 中 。 

@ 纸 程序 输入 完毕 后 ， 在 【调查 统计 表 】 工 作 表 中 单 击 功 能 区 【开发 工具 】 选 项 卡 中 的 【 控 
件 】 选 项 组 中 的 【设计 模式 】 按 钮 “ 疤 ， 退 出 该 命令 按钮 的 编辑 状态 . 


罗锅 单 击 【 统 计数 据 】 按 钮 即 可 实现 对 调查 问卷 结果 的 统计 ， 根 据 图 中 的 显示 结果 ， 可 以 了 
解 到 在 回答 该 调查 问卷 的 6 个 人 中 ， 有 3 个 人 是 男性 .3 个 人 是 女性 ， 如 图 12-44 所 示 。 
| 
1| mit | 岗位 需求 调查 数据 统计 表 
2 | 壬 项 久 目 
3 | 编号 | 性 副 | 年 堆 | 学 历 | 职业 | 一 EE 饭 “| 无 | 让 
生 1 3| 1 2| 3 
5 2 3| 3| 1 2| 3 3 3 
6 3 2| 4 3 4 3| 
浊 4 2| 2| 
8 3 3| 3| 
Eq CI 
| 
12 
13 
14 
A 1 前 
就 结 | 局 | EE Co 


图 12-44 ”统计 结果 显示 


2. 统计 结果 图 表 化 

为 了 能 够 更 加 形象 直观 地 显示 出 调查 问卷 的 统计 结果 ， 可 以 利用 VBA 代码 为 其 创建 图 
表 ， 使 统计 的 结果 图 表 化 ， 具 体操 作 步 骤 如 下 。 

@ 遇 在 VBA 代码 窗口 中 的 【工程 资源 管理 器 】 窗 口 的 任意 位 置 右 击 ， 在 弹出 的 快捷 菜单 中 
选择 【插入 】> 【模块 】 菜 单 命令 ， 然 后 双击 该 模块 ， 并 在 该 模块 中 输入 如 下 程序 代码 。 


Sub 图 表 化 () 
Dim cht Rs Chart  ' 定 义 一 个 图 表 类 型 变量 cht 
If Charts.count > 0 Then ' 判 断 是 否 存 在 已 创建 的 图 表 ， 如 果 存 在 则 先 将 其 删除 
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Charts.Delete 
End If 
Set cht = Charts.Add “将 添加 的 图 表 赋 值 给 cht 
Charts (1) .Name = "数据 分 析 图 表 " “命名 图 表 所 在 的 工作 表 
With cht ' 使 用 With 语句 简化 相同 的 操作 
.Location Where:=xlLocationAsNewSheet  ' 在 新 工作 表 中 添加 图 表 
.ChartType = xlColumnClustered  ' 选 择 图 表 类 型 为 “ 簇 状 柱 形 图 ” 
.SetSourceData Source:=Sheets ("调查 统计 表 ") .Range ("A2:N8"), PlotBy:=xlRows 
， 选择 数据 来 源 
.SeriesCollection (1) .Name 
.SeriesCollection(2) .Name 
.SeriesCollection (3) .Name 
.SeriesCollection (4) .Name = "="" 选 项 编号 4""" 
.SeriesCollection (5) .Name = "="" 选 项 编号 5""" 
.HasTitle = True ' 设 置 图 表 显示 标题 
.ChartTitle.Characters.Text = "调查 问卷 数据 分 析 " ' 设 置 图 表 标 题 
.Axes (xlCategory，xlPrimary) .HasTitle = True “设置 图 表 显示 x 轴 坐 标 标题 
.Axes (xlCategory, xlPrimary) .AxisTitle.Characters.Text = "调查 内 容 " 
， 设置 x 轴 坐 标 标题 
.Axes (xlValue，x1lPrimary) .HasTitle = True ' 设 置 图 表 显 示 y 轴 坐 标 标题 
.Rxes (xlValue, xlPrimary) .AxisTitle.Characters.Text = "选择 数目 " 
"设置 y 轴 坐 标 标题 
End With 
End Sub 


在 这 段 代码 中 ， 首 先 利 用 下 语句 判断 是 否 存在 图 表 ， 如 果 存 在 ， 则 先 将 其 删除 ， 这 样 可 
以 保证 在 多 次 执行 该 程序 时 ， 只 保留 当前 最 新 创建 的 图 表 。 然 后 使 用 Set 方 法 创建 一 个 图 表 ， 
在 With 语句 中 设置 图 表 的 各 项 内 容 , 包括 指定 位 置 、 设 置 图 表 类 型 、 选 择 数据 来 源 和 设置 图 
表 标 题 等 。 该 程序 代码 的 作用 是 为 调查 问卷 的 选项 结果 创建 柱 形 图 图 表 ， 并 将 其 显示 在 新 建 
的 工作 表 “ 数 据 分 析 图 表 ” 中 。 用 户 可 根据 此 图 表 分 析 调 查 问卷 的 选择 情况 。 


@g 为 简化 操作 ， 在 【调查 统计 表 】 工 作 表 中 为 上 述 程序 设置 启动 方式 。 在 【插入 】 选 项 卡 
中 ， 单 击 【 剪 贴画 】 按 钮 ， 在 打开 的 剪贴 画 列表 框 中 选择 要 插入 的 剪贴 画 ， 如 图 12-45 所 示 。 


"="" 选 项 编号 1""" “设置 图 表 系 列 的 名 称 
"=m" 选项 编号 2""" 
"="" 选 项 编号 3""" 


| Be | fo ne, | | 


S| li iI] Ll x 

求 调查 数据 统计 表 L | 2 

2 题目 序 亏 er Le 
三 | 王 [| 四 | 五 [六 | 二 | 入 | 本 

| 本 | [后 有 理 作 文件 天 型 ~ 


H 引 于 一 回合 0ffiee em 内 容 
3 a 


8 3| 3 


和 下 
18 
; 


各 在 0ffice con 中 查 沈 汪 组 关 息 
0 


加 
上 E 


"数据 汇总 要 所 分 析 权 卖 ]4 


图 12-45 插入 前 贴画 
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p< 


Wy 


EER 入 门 与 实战 


L 团 调节 插入 图 形 的 大 小 ， 


将 其 置 于 工作 表 的 合适 位 置 。 然 后 右 击 该 剪贴 画 ， 在 弹出 的 快捷 


菜单 中 选择 【指定 宏 】 菜单 命令 ， 即 可 打开 【指定 宏 】 对话 框 ， 在 【 宏 名 】 列 表 框 中 选择 【图 表 


化 】 选 项 ， 如 图 12-46 所 示 。 


位 置 @): | 所 有 打开 的 工作 簿 


说 明 


图 12-46 【指定 宏 】 对 话 框 


约 单 击 【 确 定 】 按 钮 ,返回 工作 表 中 , 单 击 任意 位 置 退出 剪贴 画 的 编辑 状态 。 此 时 将 鼠标 
移动 到 剪贴 画 上 ,， 待 鼠标 指针 变 为 心 时 单 击 , 即 可 运行 指定 的 程序 ,在 新 工作 表 “数据 分 析 图 表 “ 


中 将 统计 的 结果 图 表 化 ， 如 图 1 


2-47 所 示 。 


加 当 对 “调查 统计 表 了 


Ee 
WO 本 所 | 收据 分 析 图 来 -而 可 RE ee 


TT el la eg 
| 
| 


12-47 将 统计 的 结果 图 表 化 


统 会 先 将 之 前 创建 的 图 表 删 除 ， 
创建 新 的 图 表 。 
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[ 作 表 中 的 数据 进行 更 新 后 ,再 次 单 击 用 于 创建 图 表 的 按钮 时 ， 系 
并 弹出 如 图 12-48 所 示 的 提示 信息 框 ， 单 击 【 删 除 】 按 钮 ， 即 可 


B c D 下 下 6 H 本 J 
1 地 吧 ” | 岗位 需求 调查 数据 统计 表 
基本 信息 题目 序号 
3 | 性 列 | 年 失手 万 | 束 二 | 一 | 二 | 三 | | 五 | 六 
本 3| 1 2| 
5 sl a 1 3 引 a 
6 2| 4| 引 4| 3 
LE 2| 2 
a FE 
9 
10 
11 
12 
六 人 要 表 队 的 工作 表 中 可 能 存在 数据 。 如 果 要 承 久 各 险 这 些 准 据 ,请 按 “到 除 ”- 
二 CE Cw 


4 ”WT 数据 汇总 “数据 分 析 图 表 | 调查 统计 表 .可 HT = SH | 
图 12-48 ”提示 信息 框 


到 此 ， 已 经 完成 了 关于 岗位 需求 调查 问卷 的 制作 及 分 析 过 程 。 用 户 可 在 实际 工作 中 根据 
具体 的 情况 进行 相应 的 设置 。 


12.4 
高 手 私房 菜 


技巧 1: 在 输入 文字 后 调整 文本 框 的 位 置 和 大 小 

如 果 文本 框 的 位 置 和 大 小 不 合适 ， 可 以 将 鼠标 移 至 文本 框 的 边界 上 对 其 进行 调整 。 将 鼠 
标 置 于 边框 的 8 个 控 点 上 拖 动 ， 即 可 实现 文本 框 在 垂直 方向 、 水 平方 向 和 和 斜 向 的 大 小 变化 ; 
而 将 鼠标 置 于 边框 的 其 他 位 置 拖 动 ， 即 可 实现 文本 框 位 置 的 移动 。 
技巧 2: 调整 窗 体 运行 时 控件 的 可 见 性 

若 窗 体 运行 时 不 需要 显示 该 控件 ， 可 以 通过 设置 控件 的 Visible 属性 来 实现 。 

例如 ， 在 窗 体 中 插入 两 个 文本 框 控件 ， 然 后 在 窗 体 的 代码 窗口 中 输入 如 下 代码 : 


Private Sub UserForm Initialize() 
TextBox2.Visible = False ' 隐 藏 文本 框 2 
End Sub 


输入 完毕 后 ， 运 行 该 窗 体 后 ， 文 本 框 1 显示 ， 文 本 框 2 不 显示 。 
Visible 属性 只 有 在 窗 体 运 行 状态 下 才 会 发 生 作用 ， 在 VBA 代码 编辑 器 中 的 编辑 状态 下 
无 法 发 生效 力 。 
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Excel 2010 中 提供 了 丰富 的 内 置 函 数 ， 有 三 百 多 种 。 利 用 这 些 内置 函 数 可 以 快捷 、 准 确 地 完 
成 大 量 的 数据 处 理 任务 ， 大 大 地 提高 了 办 公 效 率 。 除 此 之 外 ， 还 可 以 通过 在 【加 载 宏 】 对 话 框 中 
加 载 Analysis ToolPak (分析 工 具 库 得 到 更 多 的 函数 。 通 过 以 上 内 置 函 数 并 不 一 定 能 够 满足 所 
有 的 需求 ， 这 时 可 以 通过 自 定义 函数 来 解决 问题 。 下 面 将 详细 介绍 自 定义 函数 的 相关 内 容 。 


13.1 
认识 自 定义 函数 


要 想 实 现 Excel 2010 自 定义 函数 ， 首 先 要 对 VBA 基础 知识 有 所 了 解 ， 因 为 自 定义 函数 
是 利用 Excel 2010 VBA 编写 的 函数 。 


型 使 用 自 定义 函数 


自 定义 函数 可 以 像 内 置 函数 一 样 正常 使 用 ， 具 体操 作 方 法 介绍 如 下 。 
【 例 13.1】 编写 自 定义 函数 ,使 其 能 够 获取 当前 工作 短 中 工作 表 的 个 数 ， 具 体操 作 步 又 如 
I@ 贡 新 建 或 打开 一 个 Excel 2010 工作 簿 ， 按 Alt+F11 组 合 键 打开 VBA 代码 窗口 ， 在 【工程 
资源 管理 器 】 中 的 任意 位 置 右 击 ， 在 弹出 的 快捷 菜单 中 选择 【插入 】> 【模块 】 菜 单 命令 ， 即 可 
插入 一 个 模块 ， 双 击 该 模块 ， 在 其 中 输入 以 下 函数 代码 ， 如 图 13-1 所 示 。 
Function 工作 表 个 数 () ' 自 定义 函数 为 “工作 表 个 数 ” 
工作 表 个 数 = ThisWworkbook.Sheets.Count  ' 为 自 定义 函数 指定 执行 代码 


End Function 


可 


@ 五 5, 列 1 
了 ] | 工作 表 个 数 


Fonction 工作 者 个 数 Q 
工作 乔 让 工作 表 个 数 = Thisgoribook Shests Comt 
nd Fanetion 


图 13-1 添加 模块 并 输入 代码 
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@ 到 输入 完毕 后 ， 返 回 工作 表 中 ， 使 用 定义 的 函数 设置 公式 “= 了 
到 当前 工作 簿 中 工作 表 的 个 数 ， 如 图 13-2 所 示 。 


cs ~ 四 有 | -工作 个 数 0 
a FE ss [ 5 E F 6 
.1 
2 | 
En [me | a 
Lt 
.5 
L6 
L383 
1 
10 
E14 - 
[MW 4 YH| sheetl Sheet2 Sheet3 re Gl 
Ls | 号) | 转口 四 100% 中 {+ 


图 13-2 在 工作 表 中 使 用 自 定义 函数 


| VBA 中 调用 自 定义 函数 


自 定义 函数 不 但 可 以 在 公式 中 使 用 ， 也 可 以 被 其 他 VBA 程序 调用 ， 具 体内 容 介绍 如 下 。 

【 例 13.2】 将 上 文中 的 自 定义 函数 应 用 到 一 段 新 的 程序 代码 中 , 实现 工作 短 中 的 工作 表 名 
称 自动 修改 ， 修 改 为 1 月 份 、2 月 份 、3 月 份 ……， 具 体操 作 步 又 如 下 。 

@ 册 新 建 或 打开 一 个 Excel 2010 工作 簿 ， 按 Alt+F11 组 合 键 打开 VBA 代码 窗口 ， 在 【工程 


资源 管理 器 】 中 的 任意 位 置 右 击 ， 在 弹出 的 快捷 菜单 中 选择 【插入 】> 【模块 】 菜 单 命令 ， 即 可 
插入 一 个 模块 ， 双 击 该 模块 ， 在 其 中 输入 以 下 两 段 程序 代码 ， 如 图 13-3 所 示 。 


i 万 文 5 器 角 腊 日 疯 男 W， 插入 DD 相 式 (Q) 酒 汇 D) 运行 R) 工具 中 外接 程序 人 童 D 帮助 由- 
国 加 -加 有 区 拆 9R PH 电车 生字 OO 行 14. 列 1 
roieet 加 


图 13-3 在 其 他 程序 中 使 用 自 定义 函数 


自 定义 函数 代码 如 下 : 


Function 工作 表 个 数 () 
工作 表 个 数 = ThisWorkbook.Sheets.Count 
End Function 


修改 工作 表 名 称 代码 如 下 : 
Sub 修改 工作 表 名 称 () 


Dim i As Integer 
Dim s As Integer 
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[Exce! 2010 VBA ANI 


s = 工作 表 个 数 () 
Fori=1Ts 
Sheets (i) .Name = i & "月 份 " 
Next i 
End Sub 


史 到 单 击 【 运 行 子 过 程 /用 户 窗 体 】 按 钮 。， 运 行 “修改 工作 表 名 称 ” 程 序 ， 即 可 按 要 求 将 


各 工作 表 名 称 修改 ， 如 图 13-4 所 示 。 
| ss | ( D E F 
1 
2 
3 
4 
5 
6 
7 
8 
9 
1 RE | 
RN 1 月 份 .有 梧 绷 价 可 WC re ] 


图 134 修改 工作 表 名 称 
在 代码 中 ,“s= 工 作 表 个 数 “)” 是 利用 自 定义 的 “工作 表 个 数 ” 函 数 得 到 当前 工作 秒 中 
工作 表 的 个 数 ， 然 后 把 结果 赋予 变量 s。 
【注意 】 在 程序 中 使 用 函数 时 ， 如 果 没 有 和 参数， 可 以 省 略 后 面 的 “()”。 


413.2 
记号 米 
编写 自 定义 函数 
自 定义 函数 根据 需求 不 同 ， 代 码 也 有 所 差异 ， 但 是 编写 过 程 基本 相似 。 下 面 以 编写 取得 
区 域 不 重复 值 个 数 的 函数 为 例 ， 介 绍 自 定义 函数 的 编写 过 程 。 


于 自 定义 函数 代码 存放 位 置 


内 置 函 数 在 程序 中 有 专门 的 存放 位 置 ， 而 自 定义 函数 也 需要 为 其 指定 一 个 存放 位 置 。 
般 将 其 存放 在 添加 的 模块 中 ， 或 者 存放 在 指定 对 象 〈 如 工作 表 对 象 ) 的 代码 窗口 中 。 

当然 放置 在 不 同位 置 的 自 定义 函数 是 有 差异 的 。 在 模块 中 的 函数 可 以 在 任何 一 个 程序 中 
调用 ， 而 存放 在 对 象 代码 窗口 中 的 函数 只 能 被 本 代码 窗口 内 的 程序 所 调用 。 如 果 要 自 定义 一 
个 在 各 个 工作 表 公 式 中 使 用 的 函数 ， 就 必须 在 添加 的 新 模块 中 编写 。 

本 实例 要 编写 一 个 取得 指定 区 域 中 不 重复 值 个 数 的 函数 ， 需 要 在 新 添加 的 模块 中 。 


Ee 自 定义 函数 代码 的 编制 


新 建 一 个 Excel 2010 工作 短 , 按 Altr+F11 组 合 键 打开 VBA 代码 窗口 ,在 【工程 资源 管理 
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器 】 中 任意 位 置 右 击 ， 在 弹出 的 快捷 菜单 中 选择 【插入 】>【 模 块 】 菜 单 命 令 ， 即 可 插入 一 
个 模块 ， 双 击 该 模块 ， 进 入 该 模块 的 代码 窗口 中 ， 便 可 以 编写 自 定义 函数 的 代码 。 一 般 自 定 
义 函 数 的 程序 是 以 Function 开始 ， 以 End Function 结束 ， 代 码 格式 如 下 。 


Function 函数 名 称 ( 自 变 量 ) 
程序 代码 


End Function 

程序 代码 中 各 部 分 的 含义 介绍 如 下 。 

日 函数 名 称 可 以 由 字母 、 字 符 、 ea 但 是 第 
函数 名 称 不 能 使 用 空格 、 句 号 、# $、%、(、? 、) 或 !。 

@ 自 变量 的 多 少 根据 题目 的 需要 而 定 。 


日 程序 代码 中 一 定 要 包含 函数 名 称 的 等 式 ， 如 函数 名 称 为 “工作 表 个 数 ” 
“工作 表 个 数 = 可 以 返回 值 的 代码 或 表达 式 ”。 


一 个 必须 是 字符 。 要 注意 的 是 ， 


， 那 么 程序 中 必须 包含 


想 要 实现 在 指定 的 区 域 获取 不 重复 值 的 个 数 , 可 在 打开 的 模块 代码 窗口 中 输入 以 下 代码 ， 
如 图 13-5 所 示 。 


Function 取 不 重复 值 个 数 (Rng Rs Range) 


Application.Volatile ， 用 于 将 用 户 自 定义 函数 标记 为 易 失 性 函数 ， 无 论 何 时 在 工作 表 的 
"任意 单元 格 中 进行 计算 ， 易 失 性 函数 都 必须 重新 进行 计算 。 非 易 失 性 函数 只 在 输入 变量 改变 时 才 重 新 计算 ， 
"车 不 用 于 计算 工作 表单 元 格 的 用 户 自 定义 函数 中 ， 则 此 方法 无 效 
Dim Mr As Range 
Dim X As Integer, K As Integer 
X = Application.CountA (Rng) 
， 计算 出 给 定 区 域 非 空 单元 格 的 字符 或 数字 总 个 数 ， 并 赋予 变量 x 
For Each Mr In Rng “设置 在 给 定 的 Rng 单元 格 区 域 进行 循环 
IE Application.WorksheetFunction.CountIf (Rng, Mr) > 1 Then 
， 调用 工作 表 函 数 countIE 计算 当前 单元 格 在 给 定 Rng 单元 格 区 域 中 的 个 数 
Ll "使 用 K 对 重复 的 个 数 进行 累计 


End If 
Next Mr 
取 不 重复 值 个 数 = x - (K / 2) “' 建立 函数 名 称 和 计算 内 容 关 联 ， 这 旬 代 码 是 必 不 可 少 的 
End Function 
二 用 ) 了 ] [ 阴 不 重复 值 个 区 司 
Functi 不 | 个 Range) 
ti 汪 攻 生肖 Ge 人 台 生 昔 户 自 定义 函数 标记 为 失 性 函数 ， 无 兴 何 时 在 工 全 
Dim Mr As Range 3 
人 Integer, ek Eer 
和 字符 或 数字 总 个 数 ,并 赋 也 去 
For Each llr In Rn 5 人 
IE lication WorksheetFunction CountIf| Nr) > 1 Then 
”调用 工作 家 汪 数 Coon 和 明和 兴 不 信和 和 舌 < 和 元 格 区 城中 的 个 数 
使 用 1 对 量 复 的 个 涛 进行 梨 计 
aa i 
了 于 芝 委 秆 人 笋 = x -区 / 2) “建立 了 小 各 和 计 委 内 容 关联 ， 这 各 代码 是 必 不 可 少 灯 
End Function 


图 13-5 在 模块 中 添加 函数 过 程 代码 
代码 中 各 部 分 含义 解释 如 下 。 
@ Function 取 不 重复 值 个 数 : Function 关键 字 说 明 这 是 函数 过 程 。“ 取 不 重复 值 个 数 ” 是 函数 的 名 称 。 
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@ Rng As Range: 设置 自 变量 Rng 并 声明 它 的 类 型 为 单元 格 。 

® X = Application.CountA (Rng): 这 里 调用 了 工作 表 函 数 CountA ，Application 后 省 略 了 
WorksheetFunction 。 

@ X- (K/2): 是 总 个 数 减 去 重复 的 个 数 ， 再 除 以 2 的 值 ， 即 所 求 的 不 重复 值 的 个 数 。 例 如 ，A、 
B、C、D、A 总 个 数 是 5 (代码 中 X 值 )， 重 复 的 值 分 别 是 第 一 个 A 和 第 二 个 A， 总 个 数 是 2 
(代码 中 的 值 )， 所 以 不 重复 值 的 个 数 为 5-2/2=4。 


| 添加 自 定义 函数 的 说 明 


在 工作 表 中 调用 内 置 函 数 时 ， 如 果 不 清楚 函数 的 用 途 ， 可 以 查看 其 说 明文 字 。 同 时 为 了 
方便 记忆 自 定义 函数 的 功能 ， 也 可 以 为 其 添加 一 些 说 明文 字 ， 具 体 的 操作 步骤 如 下 。 


@ 遇 选择 工作 表 功 能 区 的 【开发 工具 】 选 项 卡 ， 在 【代码 】 选 项 组 中 单 击 【 宏 】 按 钮 ， 打开 
【 宏 】 对 话 框 ， 如 图 13-6 所 示 。 


ia = 和 国 ms 
Ea := ca mm FA oO myn 


月 从 _3 朋 六 -3 月 全 二 


图 13-6 【 宏 】 对 话 框 
@ 到 在 【 宏 】 对 话 框 中 的 【 宏 名 】 文 本 框 中 输入 自 定义 函数 的 名 称 “ 取 不 重复 值 个 数 ”， 如 
13-7 所 示 。 
@ 引 单 击 【 选 项 】 按 钮 , 打开 【 宏 选项 】 对 话 框 , 在 【说 明 】 文 本 框 中 输入 函数 的 说 明文 字 ， 
如 图 13-8 所 示 。 


说 明 四 ): 
一 个 可 以 区 职 指定 区 域 重复 值 个 数 的 自 定义 函数 。| 


| 


图 13-7 输入 函数 名 称 图 13-8 【 宏 选 项 】 对 话 框 
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@ 约 说 明文 字 输 入 完成 后 ， 单 击 【 和 确定】 按钮， 返回 到 【 宏 】 对 话 框 ， 即 可 看 到 添加 的 说 明 
文字 ， 如 图 13-9 所 示 。 

@ 加 单 击 【 取 消 】 按 钮 ， 可 完成 说 明文 字 的 添加 . 

@g 选择 工作 表 功 能 区 的 【公式 】 选 项 卡 ， 单 击 【 函 数 库 】 选 项 组 中 的 【插入 函数 】 按 钮 ， 
打开 【插入 函数 】 对 话 框 ， 在 【或 选择 类 别 】 下 拉 列 表 框 中 选择 【用 户 定义 】 选 项 ， 在 【选择 函 
数 】 列 表 框 中 即 可 显示 已 添加 说 明 的 自 定义 函数 ， 同 时 在 对 话 框 的 下 方 出 现 添加 的 函数 说 明 ， 如 
13-10 所 示 。 


搜索 函数 G) 
人 ， 热 后 单 击 “ 转 到 ” 转 到 (@) 


或 选择 类 别 C); | 用 户 定义 ~ 


选择 函数 中 : 


| 不 重 夏 夺 下 到 Tag 
一 个 可 以 次 取 指 定 区 域 重复 值 个 涩 的 自 定义 函数 。 
位 置 由 )， 所 有 打开 的 工作 洲 
说 明 
一 个 可 以 获取 指定 区 域 重复 值 个 数 的 自 定义 函数 。 


Ce i 
图 13-9 显示 添加 的 说 明文 字 图 13-10 添加 后 的 函数 说 明 


【提示 】〗 在 插入 工作 表 内 置 函 数 时 ， 会 提供 该 函数 的 编辑 参数 的 说 明 ， 如 图 13-11 所 示 。 而 自 定义 函数 
则 无 法 添加 这 样 的 参数 说 明文 字 。 


计算 单元 格 区 城中 所 有 数 信 的 和 
Jiomberl barl runber2, 1 到 255 和 的 2 人 
”得 当 人 六 允 改 嫂 和 时 ， 油 


Cas | we 
图 13-11 函数 的 参数 说 明 


指定 函数 的 类 别 


在 Excel 2010 中 内 置 函 数 为 了 方便 区 分 被 分 成 了 全 部 、 财 务 、 日 期 与 时 间 等 类 别 ， 而 创 
建 的 自 定义 函数 会 自动 分 配 到 “用 户 定义 ”类 别 中 。 可 以 通过 VBA 代码 将 自 定义 函数 划 入 
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指定 的 函数 类 别 中 。 首 先 在 VBA 代码 窗口 中 插入 一 个 模块 ， 然 后 在 该 模块 中 输入 如 下 代码 
程序 ， 如 图 13-12 所 示 。 


Sub 指定 函数 类 别 () 
Application.MacroOptions " 取 不 重复 值 个 数 "， Category:=4 
End Sub 


运行 该 程序 后 ， 就 可 以 把 自 定义 函数 添加 到 “统计 ”函数 类 别 中 ， 如 图 13-13 所 示 。 


搜索 函数 @) 
请 绩 入 一 条 简短 说 明 来 描述 您 炮 做 什么 ， 然 后 单 击 “ 转 到 ”| 
i 么 | 转 到 (@) 
或 选择 类 别 C): 统计 


重复 值 个 数 fng) 
一 个 可 以 获取 指定 区 域 重复 值 个 数 的 自 定义 函数 , 


了 | 刷 二 大 天 天 


Sub 指定 函数 类 别 0 
Die Macro0ptions“ 职 不 重复 值 个 数 “，Category:=: 
End Sub 


Cue] 


图 13-12 输入 指定 函数 类 别 程序 图 13-13 在 统计 函数 中 的 自 定义 函数 
代码 中 各 部 分 含义 解释 如 下 : 


e@ “ 取 不 重复 值 个 数 ”: 自 定义 函数 名 称 。 
e Category:=4: 指定 自 定义 函数 的 类 别 ，4 代表 “统计 ”函数 。 


表 13-1 列 出 了 内 置 函数 类 别 及 编号 。 
表 13-1 内 置 函 数 类 别 及 其 编号 


| 编 S |[ 娄 别 | 编 [Ww 类 别 | 
lo [amw |; | 者 反 和 3 用 

I 财务 6 数据 库 

2 | 日 期 和 时 间 7 | 文本 | 
3 | 数学 和 三 角 8 | 记名 | 
| 统计 9 | 信息 | 


13.3 
使 用 自 定义 函数 


了 解 了 自 定义 函数 的 基本 知识 和 基本 操作 后 ， 下 面 来 介绍 自 定义 函数 的 使 用 方法 及 在 使 
用 过 程 中 所 需要 解决 的 问题 。 
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大 号 在 其 他 Excel 2010 VBA 代码 中 使 用 


编写 完成 的 自 定义 函数 可 以 直接 被 当前 工作 筹 内 的 其 他 程序 调用 ， 有 具体 操作 方法 如 下 。 
【 例 13.3】 用 Microsoft Excel 2010 提示 框 提 示 指 定 区 域 不 重复 值 的 个 数 ， 有 具体 的 操作 步 


又 如 下 。 


@ 灿 在 上 文 创 建 的 “模块 1” 代码 窗口 中 输入 以 下 程序 代码 ， 如 图 13-14 所 示 。 


Sub 提示 不 重复 值 的 个 数 () 
Dim X As Integer 


X = 取 不 重复 值 的 个 数 (Range ("A1:A10")) “' 在 使 用 带 参数 的 函数 返回 值 时 ， 应 在 该 函数 参数 两 边 


"添加 括号 
MsgBox "该 区 域 不 重复 值 的 个 数 为 : " & XxX & "个 " 
End Sub 


| 硬 击 ) 了 | | 要 示 不 重复 人 六 个 要 习 
RD 习 
全 rr 
X = 职 个 这 个 数 Gangs (AI :A10")) “在 使 用 斋 参 灼 的 函数 返回 入 时 ， 应 在 这 函数 参数 两 边 添 加 括号 
| 于 ee 


= 上 有 网 
13-14 ”输入 提示 不 重复 个 数 的 程序 代码 


@ 到 运行 该 程序 代码 , 即 可 弹出 当前 工作 表 的 指定 区 域 中 不 重复 值 的 个 数 , 如 图 13-15 所 示 。 


A BE C 和 E | 

. 1 门 
了 icrosoft Excel 区 ] 

4 1 该 区 域 中 不 重复 值 的 个 数 为 : 6 个 是 
5 5 

6 2 [Ex 
7 7 

8 3 

9 9 
上 一 一 E===3] 

11 bE 
4 1 月 份 2 月 价 -3 月 份 二 可 eal 站 a 


图 13-15 ”提示 不 重复 值 的 个 数 


【提示 】 由 以 上 内 容 看 出 , 自 定义 的 一 个 函数 可 以 在 多 个 任务 中 被 调用 , 如 果 本 实例 中 没有 自 定义 函数 ， 
每 一 个 操作 任务 的 代码 都 将 复杂 很 多 。 所 以 使 用 自 定义 函数 可 以 大 大 简化 代码 的 编辑 。 


开本 闻 在 工作 表 公 式 中 使 用 


在 工作 表 中 使 用 自 定义 函数 ， 与 内 置 函 数 的 使 用 方法 相同 ， 具 体操 作 方法 如 下 。 


》 :© 


Wy 
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【 例 13.4】 在 C2 单元 格 中 计算 A1: A10 单元 格 区 域 中 不 重复 值 的 个 数 ， 有 具体 的 操作 步 


又 如 下 。 
加 在 C2 单元 格 中 输入 公式 “= 取 不 重复 值 个 数 (Al:A10) ， 如 图 13-16 所 示 。 

| ED ”WY | -= 取 不 重复 信 个 数 (A1:A10) > 
a BT | 下 | 

加 国 | 和 二 

局 下 2 

3 3| 

4 1 

5 5| 

6 2| 

这 了 | 

8 3| 

和 9 

10 

2 

人 

| 1 月 从 /3 有 从 8 月 从 过 本 PE 让 


图 13-16 输入 计算 公式 


@ 到 按 下 Enter 键 ， 即 可 计算 出 A1:A10 单元 格 区 域 中 不 重复 值 的 个 数 ， 如 图 13-17 所 示 。 


C2 ”@ 下 


= 取 不 重复 值 个 数 (A1 :A10) 


B C 


SE bole os 
Woutaroor 


由 Wl 1 月 份 /8 从 月 荷 过 本 a 


D 


站 ule 


] all 


图 13-17 在 工作 表 中 使 用 自 定义 函数 
【提示 】〗 也 可 以 通过 单 击 【 公 式 〗 选 项 卡 中 的 【函数 库 〗 选 项 组 中 的 【插入 函数 〗 按 钮 来 输入 自 定义 的 


函数 。 


| 自 定义 函数 的 公用 


一 个 自 定义 的 函数 并 不 一 定 只 能 在 当前 工作 短 使 用 ， 也 可 以 应 用 到 其 他 打开 的 工作 短 
中 。 这 需要 创建 加 载 宏 文件 ， 并 在 工作 德 中 加 载 该 加 载 宏 。 


【 例 13.6】 使 用 加 载 宏 的 方法 ,让 自 定义 函数 “ 取 不 重复 值 个 数 ” 实 现 公 用 。 具 体操 作 步 


又 如 下 。 


@ 肾 选择 工作 簿 功能 区 的 【文件 】 选 项 卡 , 然后 选择 【信息 】 选 项 组 , 单 击 右 侧 列表 框 的 【 属 


性 】 下 三 角 按钮 ， 在 弹出 的 下 拉 列 表 中 选择 【高 级 属性 】 选 项 ， 如 图 13-18 所 示 。 


上 @ 他 打开 该 工作 秒 的 属性 对 话 框 ,选择 【摘要 】 选 项 卡 ， 在 【标题 】 文 本 框 中 输入 “ 取 不 重 
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复 值 个 数 加 载 安 ”， 在 【备注 】 文 本 框 中 输入 关于 该 加 载 安 的 详细 说 明 ， 输 入 完毕 后 单 击 【 确 定 】 
按钮 ， 即 可 保存 该 加 载 宏 提示 信息 ， 如 图 13-19 所 示 。 
EPFEES PB Microw Em ~ Merosoft Encel 二 站 本 
人 ee SN 者 建 Wicrosoft Excel 工作 去 -zlsa 展 忻 。” 奈 | 网 | 

= 有 关 新建 Microsoft Excel EEE 

ps SOLN02 a ereeet bree = es 

E lise FEEEEEEEEEEEEEEeeaeech 

中 一 

ar 局 
图 13-18 【信息 】 选 项 组 图 13-19 工作 敌 的 属性 对 话 框 


@ 旨 打开 含有 自 定义 函数 代码 的 文件 并 选择 功能 区 【文件 】> 【另存 为 】 菜 单 命令 , 打开 【 另 
存 为 】 对 话 框 ， 从 中 输入 加 载 安 的 名 称 (名 称 要 利于 辨认 该 自 定义 函数 ) ， 并 在 【保存 类 型 】 下 拉 
列表 框 中 选择 保存 类 型 为 “Excel 2010 加 载 安 ”选项 , 单 击 【 保 存 】 按 钮 即 可 保存 成 功 , 如 图 13-20 
所 示 。 

La 滑 选择 Excel 2010 功能 区 的 【开发 工具 】 选 项 卡 ， 单 击 【 加 载 项 】 按 钮 ， 打 开 【 加 载 宏 】 
对 话 框 ， 如 图 13-21 所 示 。 


SNSD AT 
NAR. ee Eo tio 


13-20 【另存 为 】 对 话 框 图 13-21 【加 载 宏 】 对 话 框 


【提示 】Windows XP 系统 下 加 载 宏 文件 的 默认 保存 位 置 为 C:\Documents and Settings\Administrator\ 
Application Data\Microsoft\AddIns 文件 去 下 。 


@ 国 在 【加 载 安 】 对 话 框 中 单 击 【 浏 览 】 按 钮 ， 即 可 打开 【浏览 】 对 话 框 ， 从 中 选择 已 保存 
的 加 载 安 文件 ， 单 击 【 确 定 】 按 钮 ， 如 图 13-22 所 示 。 
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@ 人 @ 返回 【加 载 安 】 对 话 框 ， 在 【可 用 加 载 安 】 列 表 中 便 会 出 现 【 取 不 重复 值 个 数 加载 安 ] 
选项 ， 并 且 在 对 话 框 底部 还 有 步骤 2 中 添加 的 说 明 ， 如 图 13-23 所 示 ， 单 击 【 确 定 】 按 钮 即 可 完 
成 自 定义 函数 的 加 载 过 程 。 


了 个 
Jp 蔓 顶 用 于 计算 指定 区 城中 不 重复 值 的 个 数 


图 13-22 【浏览 】 对 话 框 图 13-23 显示 加 载 的 宏 名 称 
13.4 ”综合 实战 1 一 一 定义 计算 员工 
奖金 的 函数 


奖金 计算 在 工资 统计 中 应 用 非常 广泛 ， 特 别 是 销售 行业 ， 为 了 促进 销售 人 员 的 工作 
积极 性 , 销售 部 门 往往 会 制定 一 系列 的 销售 业绩 奖金 制度 。 下 面 来 分 析 一 个 典型 的 奖金 计 


算 案例 。 
销售 经 理 制定 了 销售 业绩 奖金 制度 ， 奖 金发 放 的 标准 奖金 率 如 表 13-2 所 示 。 


表 13-2 标准 奖金 率 
月 销售 额 月 销售 额 
30001-50000 


6% 
9% 


3000~8000 
8001~15000 


同时 ， 为 了 鼓励 员工 持续 地 为 公司 工作 ， 工 龄 越 长 对 奖金 越 有 利 ， 具 体 规定 为 :参与 计 
算 的 奖金 率 等 于 标准 奖金 率 加 上 工龄 一 半 的 百分数 。 例 如 ， 一 个 工龄 为 6 年 的 员工 ， 标 准 奖 


金 率 为 6% 时， 参与 计算 的 奖金 率 则 为 6%+ (6/2) % 二 9%。 
首先 在 Excel 2010 中 制作 好 如 图 13-24 所 示 的 Sheetl 工作 表 。 然 后 计算 方法 分 析 如 下 。 
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第 13 章 ， 自 定义 函数 的 实际 应 用 


人 NI Sheet! Sheet 7 sheety 7 De | | 
图 13-24 ”制作 计算 奖金 的 员工 工作 表 
若 不 考虑 工龄 对 奖金 率 的 影响 ， 那 么 可 以 利用 幅 套 使 用 IF 函数 ， 在 D2 单元 格 输入 公式 
“=IF (B2<=3000,B2*4%,IF (B2<=8000,B2*6%,IF (B2<=15000,B2*9%,IF (B2<=30000,B2*12%,IF 
(B2<=50000,B2*16%,B2*20%)))))” 进 行 计算 。 
但 是 ， 可 以 看 出 以 上 公式 有 两 个 明显 的 棘 端 。 


(1) 公式 看 起 来 太 烦琐 ， 不 容易 理解 ， 而 且 IF 函数 最 多 只 能 嵌 套 7 层 ， 万 一 奖金 率 超 过 
7 个 ， 那 么 这 个 方法 就 没 用 了 。 

(2) 由 于 没有 考虑 工龄 ， 所 以 该 方法 不 能 算是 解决 问题 了 ， 如 果 把 工龄 考虑 到 上 述 公式 
中 ， 这 样 公式 就 会 显得 更 加 宛 长 烦琐 ， 以 后 的 管理 与 调整 都 很 不 方便 。 

所 以 还 是 使 用 自 定 义 函 数 进行 计算 比较 简捷 。 这 里 与 上 面 的 实例 有 所 不 同 的 是 ， 该 自 定 
义 函 数 使 用 了 两 个 参数 ， 有 具体 的 操作 步骤 如 下 。 

@ 遇 选择 Excel 2010 工作 表 的 功能 区 【开发 工具 】 选 项 卡 ， 单 击 【代码 】 选 项 组 中 的 Visual 
Basic 按钮 或 按 Alt+F11 组 合 键 ， 打开 Excel 2010 VBA 代码 窗口 。 在 该 窗口 中 的 【工程 资源 管理 
器 】 窗 口中 任意 位 置 右 击 ， 在 弹出 的 快捷 菜单 中 选择 【插入 】> 【模块 】 菜 单 命令 ， 插 入 一 个 模 
块 ， 双 击 该 模块 ， 并 在 该 模块 中 输入 如 下 代码 程序 ， 如 图 13-25 所 示 。 


Function REWARD(sales, years) Rs Double 


Const rl As Double = 0.04 
Const r2 As Double = 0.06 
Const r3 As Double = 0.9 
Const r4 As Double = 0.12 
Const r5 As Double = 0.16 
Const r6 As Double = 0.19 


Select Case sales 

Case Is <= 3000 
REWARD = sales * (rl + years / 200) 

Case Is <= 8000 
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[天 入 门 与 实战 


REWARD = sales * (2 + years / 200) 
Case Is <= 15000 

REWARD = sales * (r3 + years / 200) 
Case Is <= 30000 

REWARD = sales * (r4 + years / 200) 
Case Is <= 50000 

REWARD = sales * (r5 + years / 200) 
Case Is > 50000 

REWARD = sales * (r6 + years / 200) 

End Select 
End Function 


[Ry 3 一 


Fanetion REIARDGALes years) As Dowble 
ns 构 


st rl As Dovble = 


2800 
REWARD = seles # Gl + yewrs / 200) 
Case Is < 7900 

REWARD = seles * G2 + yewrs / 200) 
Case Is 1: 
AID = sles * G3 + yewrs / 200) 
3000D 


REWARD = sules # (4 + yewrs / 200) 
65 + yuurs / 200) 


seles * G6 + yews / 200) 
End Select 
nd Function 


[| | 
13-25 输入 代码 


【提示 】〗 在 上 述 代码 中 ， 自 定义 了 一 个 名 为 REWARD 的 函数 ， 它 包含 两 个 参数 : 销售 额 sales 和 工龄 
years。 常 量 rl~r6 分 别 存放 着 各 个 等 级 的 奖金 率 ， 这 样 处 理 的 好 处 是 当 奖 金 率 调整 时 ， 修 改 非常 方便 。 
同时 ， 函 数 的 层次 结构 比 前 面 的 公式 清晰 ， 使 用 户 容易 理解 函数 的 功能 。 此 外 ， 当 奖金 率 超过 ?7 个 时 ， 
用 自 定义 函数 的 方法 仍然 可 以 轻松 处 理 。 


@g 函数 自 定义 完成 后 ,返回 Excel 2010 工作 表 窗口 ,在 D2 单元 格 中 输入 “=reward (B2,C2)”， 
如 图 13-26 所 示 。 


| 
M 4 WM] Sheetl A Sheet2 Sheet3 2 村 加 ] Gl 


13-26 在 D2 单元 格 中 输入 公式 


252 


各 按 Enter 键 即 可 计算 出 第 一 个 员工 的 奖金 


A 了 


[奖金 的 计算 。 


13.5 ”综合 实战 2 一 一 定义 员工 个 人 
调节 税 的 函数 


计算 个 人 调节 税 使 用 也 比较 广泛 ， 为 其 设置 自 定义 函数 的 操作 内 容 如 下 。 

首先 ， 假 设 个 人 调节 税 的 收缴 标准 是 ， 工资 小 于 等 于 800 元 的 免 征 调节 税 ， 工 资 800 元 
以 上 至 1500 元 的 超过 部 分 按 5% 的 税率 征收 ，1500 元 以 上 至 2000 元 的 超过 部 分 按 8% 的 税 
率 征收 ， 高 于 2000 元 的 超过 部 分 按 20% 的 税率 征收 。 

例如 ， 在 Sheetl 工作 表 的 A、B、C、D 列 中 分 别 存 放 “ 姓 名 ”“ 总 工资 "、“ 调 节 税 ”、 
“ 税 后 工资 ”字段 数据 ， 如 图 13-28 所 示 。 


A B 


¥2, 580. 00| 


¥1, 479. 00| 
¥3, 560. 00| 
¥890. 00| 


¥950. 00| 
¥1, 950. 00| 
¥2, 650. 00| 
¥880. 00| 


13-28 Sheetl 工作 表 
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Xx 


Wy 


[Exce! 2010 VBA ANI 


平时 使 用 较 多 的 方法 是 借助 嵌 套 使 用 IF 函数 计算 ， 例 如 在 C2 单元 格 输入 公式 “=IF 
( B2<=800,0,IF ( B2<=1500, ( B2-800 ) *0.05,IF ( B2<=2000,700*0.05+ ( B2-1500 ) 
*0.08,700*0.05+500*0.08+(B2-2000〉*0.2)” 然后 通过 填充 柄 复制 公式 到 C 列 的 其 余 单元 


格 ， 即 可 自动 计算 出 调节 税 ， 如 图 13-29 所 示 。 


[ 3 区 = 天 | =IF (B2<=800, 0, IF (B2<=1500, (B2-800)*# 六 | 
E 了 


图 13-29 填充 公式 

可 以 看 到 ， 公 式 可 以 解决 个 人 调节 税 统计 的 问题 ， 但 是 为 什么 还 要 使 用 自 定义 函数 的 方 
法 呢 ? 很 显然 ， 使 用 公式 看 起 来 太 烦琐 ， 不 便于 理解 和 管理 ， 而 且 公式 的 处 理 能 力 在 面 对 稍 
微 复杂 一 些 的 问题 时 便 失 去 效用 。 假 设 调节 税 的 税率 标准 会 根据 年 龄 的 不 同 而 改变 ， 那 么 公 
式 可 能 就 没 用 了 。 
下 面 就 通过 此 例 介绍 使 用 自 定义 函数 的 全 过 程 ， 具 体 的 操作 步骤 如 下 。 


于 


@ 遇 选择 Excel 2010 工作 表 功 能 区 的 【开发 工具 】 选 项 卡 , 单 击 【代码 】 选 项 组 中 的 【Visual 


Basic】 按 钮 或 按 AlttF11 组 合 键 , 打开 Excel 2010 VBA 代码 窗 


隐 


程 资源 管理 器 】 窗 


中 


任意 位 置 右 击 ， 在 弹出 的 快捷 菜单 中 选择 【插入 】> 【模块 】 菜 单 命令 ， 插 入 一 个 模块 ， 双 击 该 


模块 ， 并 在 该 模块 中 输入 如 下 代码 程序 ， 如 图 13-30 所 示 。 


Function TAX(salary) 
Const rl As Double = 0.0 
Const r2 As Double = 0.0 
Const r3 As Double = 0.2 
Select Case salary 
Case Is <= 800 
TAX=0 
Case Is <= 1500 
TAX = (salary - 800) * rl 
Case Is <= 2000 


TAX = (1500 -~ 800) * rl + (salary - 1500) * r2 


Case Is > 2000 
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TAX = (1500 = 900) » Tl + (2000 = 1500) * r2 4+ (salary = 2000) * xr3 
End Select 
End Function 


ie ror hpplications - 计算 个 人 鹿 节 本 的 和 定义 二 数 ,x1sa - [区 .-。 轩 回国 


是 Wirejert [时 外 全 
是 miprejeet [ 叶 不 下 生 


13-30 输入 自 定义 函数 代码 


@ 到 函数 自 定义 完成 后 ,返回 Excel 2010 工作 表 窗 口 ,在 C2 单元 格 中 输入 公式 "=TAX(B2) 


如 图 13-31 所 示 。 


SUN ”®VE| =TAX(B2) 


1, 250. 00) 
H,750, 00| 
¥2, 250. 00| 
¥3, 000. 00 
1, 300. 00) 
,760. 00 
¥2, 580. 00| 
1, 479. 00) 
¥3, 560. 00| 

¥890. 00 

¥950. 00 
¥1, 950. 00 
¥2, 650. 00| 

¥880. 00 


图 13-31 输入 公式 
@ 引 按 Enter 键 ， 计 算出 了 第 一 个 员工 应 付 的 个 人 调节 税 ， 如 图 13-32 所 示 。 
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Excel 2010 VeA DEES 


图 13-32 计算 出 第 一 个 员工 应 付 的 个 人 调节 税 
四 顷 用 公 和 把 人 ns, 如 图 13-33 所 示 。 


13-33 计算 所 有 员工 应 付 的 个 人 调节 税 


从 自 定义 函数 的 代码 中 可 以 看 出 ， 用 这 种 方式 ， 自 定义 函数 的 功能 易于 理解 ， 同 时 如 果 
税率 改变 ， 相 应 地 变化 rl1、r2、r3 的 值 即 可 。 


在 Excel 2010 中 ,如 果 要 以 单元 格 背 景色 为 条 件 来 进行 数据 的 求 和 与 计数 是 件 困 难 的 事 ， 
因为 Excel 2010 并 没有 提供 相关 的 功能 。 而 使 用 自 定义 函数 却 可 以 完成 该 功能 ， 具 体操 作 步 
又 如 下 。 
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@ 册 在 Sheetl 工作 表 中 ， 按 如 图 13-34 所 示 的 效果 将 A1:A10 单元 格 区 域 中 分 别 填充 背景 颜 
色 ， 并 在 其 他 单元 格 中 输入 相应 的 数据 。 


控 可 郑平 生计 天 xlsm - Microsoft Excel 


区 ] 


ET 


图 13-34 ”填充 背景 颜色 


@ 到 选择 Excel 2010 工作 表 功 能 区 的 【开发 工具 】 选 项 卡 ， 单 击 【代码 】 选 项 组 中 的 Visual 
Basic 按钮 或 按 Alt+F11 组 合 键 ， 即 可 打开 Excel 2010 VBA 代码 窗口 。 在 【工程 资源 管理 器 】 窗 
口中 任意 位 置 右 击 ， 在 弹出 的 快捷 菜单 中 选择 【插入 】> 【模块 】 菜 单 命令 ， 插 入 一 个 模块 ， 双 
6 该 模块 ， 并 在 该 模块 中 输入 如 下 两 段 程序 代码 ， 如 图 13-35 所 示 。 


计数 自 定义 函数 代码 : 


Function CountColor (col As Range, countrange Rs Range) As Integer 
Dim icell As Range 
Application.Volatile 
For Each icell In countrange 
IE icel1.Interior.ColorIndex = col.Interior.ColorIndex Then 
CountColor = CountColor + 1 
End If 
Next icell 
End Function 


求 和 自 定义 函数 代码 : 


Function SumColor (col As Range, sumrange Rs Range) Rs Integer 
Dim icell As Range 
Application.Volatile 
For Each icell In sumrange 
If icel1.Interior.ColorIndex = col.Interior.ColorIndex Then 


[an 
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ETA 入 门 与 实战 


SumColor = RARPP1lication.Sum(icel1) + SumColor 
End If 
Next icell 
End Function 


SumCoeler 


[ 坝 而 可 


Function CountColor (col As Range, countrange As Range) As Integer 
Dim icell As Range 
Application. Yolatile 
For Each icel1 In countrange 
IE icell. Interior. ColorIndex = col.Interior. ColorIndex Then 
CountColor = CountColor + 1 
End If 
Next icell 
|_End Function 


Function SunColor (col As Range, sunrange As Range) As Integer 
Tim icell As Range 
Application. Yolatile 
For Each icel1 In sunrange 
IE icell. Interior. ColorIndex = col. Interior. ColorIndex Then 
SunColor = Application Sun (icell) + SunColor 
End IF 
Next icell 
End Function 


13-35 ”输入 自 定义 函数 代码 


器 


加 自 定义 函数 输入 完毕 后 ， 返 


(D$1$A$1:$A$10) ， 如 图 13-36 所 示 。 


SDL__ ”和 相 


A$1:$A$10)] 
F G 


AS10) 


[3 


吕 


a 


eet] Sheet Sheet3 二 HAIL 


图 13-36 输入 计数 公式 


FR 


@ 凤 按 Enter 键 , 即 可 统计 出 Al:A10 单元 格 区域 中 背景 颜色 与 D1 单元 格 


(灰色 ) 的 单元 格 个 数 ， 如 图 13-37 所 示 。 
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作 表 窗口 中 。 在 D2 单元 格 中 输入 公式 “=countcolor 


的 背景 颜色 相同 


-countcolor (D$1, $A$1:$A$10) 4 
< - 


8 


LT， W Shootl Sheet2 Sheet3 5 了 4 Ls 


图 13-37 统计 出 背景 颜色 为 灰色 的 单元 格 个 数 


上 @ 副 选择 D3 单元 格 ， 并 输入 公式 “=sumcolor (D$1.SAS$1:$A$10) ， 如 图 
SUIL ~ 人 XV A£| =suncolor(D$1, $A$1:$A$10) 四 
A ]B 一 1 了 
3 
4 
6 
8 
M4bM| Sheetl Sheet7 Sheet Ns I 让 


图 13-38 输入 求 和 公式 


@gj 按 Enter 键 , 即 可 计算 出 Al:A10 单元 格 区域 中 背景 颜色 与 D1 单元 格 
的 单元 格 中 数值 的 和 ， 如 图 13-39 所 示 。 


13-38 所 示 。 


的 背景 颜色 相同 
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Niih 


ESIREN 入 门 与 实战 


EE| =sumcolor (D$1, $A$1:$A$10) 
c D E F EC ES| 
求 和 : | 6 | 
可 U 
ES 
Rd Sheet2 Sheet3 7 Hd sm 
13-39 ”计算 出 所 有 灰色 单元 格 中 数值 的 和 
@ 副 按照 相同 的 方法 ,统计 并 计算 其 他 单元 格 中 的 背景 色 与 A1:A10 单元 格 区 域内 背景 颜色 
相同 的 个 数 以 及 相同 背景 颜色 的 单元 格 的 数值 的 和 ， 如 图 13-40 所 示 。 


| D2 两 | =countcolor (D$1, $A$1:$A$10) 加 
| a nl 6 D ,tt en , | 
背景 包 : 
计数 : | 
| 
ER 求 和 : | 
| 
4 1 
1 
| 
! | 
| | 
o | | 
| 
! | 
1 
1 
8 ! 
| 
9 ! 
1 
1 
10 本 刁 
M4 VN] Sheetl Sheet Sheety 2 MAIL ] 


13-40 统计 并 计算 其 他 单元 格 


通过 上 面 的 几 个 典型 的 实例 讲述 了 Excel 2010 中 自 定义 函数 使 用 的 全 过 程 ， 如 果 用 户 在 
工作 需要 自 定义 函数 ， 想 进一步 提高 使 用 自 定义 函数 的 水 平 ， 则 需要 注意 以 下 几 点 : 


(1) 熟练 地 掌握 Excel 2010 内 置 的 函数 。 能 用 内 置 函数 妥善 解决 的 问题 ， 就 不 必 使 用 自 
定义 函数 。 实 际 上 ， 自 定义 函数 的 执行 效率 比 Excel 2010 内 置 函数 的 慢 。 

(2) 认真 掌握 好 VBA 的 基础 知识 。 这 点 很 容易 理解 , 如 果 连 VBA 的 基本 规则 都 不 清楚 ， 
别 说 是 写 出 精致 的 自 定义 函数 ， 就 是 写 出 能 解决 问题 的 自 定义 函数 也 还 大 有 疑问 。 

(3) 具体 写 自 定义 函数 代码 之 前 ， 应 该 认真 分 析 自 己 要 处 理 的 实际 问题 ， 如 果 这 个 问题 
有 实际 的 数学 函数 模型 ， 那 么 最 好 列 出 这 个 函数 的 解析 式 。 
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13:7 
高 手 私房 菜 


技巧 1: 将 阿拉 伯 数 字 快速 转换 成 大 写 形式 
在 财务 统计 时 ， 为 了 数据 安全 ， 往 往 会 将 阿拉 伯 数 字 表 示 为 人 民 币 大 写 形式 ， 但 是 依靠 
人 工 来 实现 根本 不 现实 。 尽 管 在 Excel 2010 中 可 以 利用 单元 格格 式 把 数字 显示 为 中 文大 写 数 
字 ， 但 是 这 样 并 不 符合 人 民 币 的 说 明 习 惯 ， 而 要 利用 现 有 的 工作 表 内 置 函 数 进行 转换 计算 ， 
转换 过 程 又 会 较为 复杂 。 
编写 自 定义 函数 的 代码 如 下 。 
Function N2RMB (M) 
y = Int(Round(100 * Abs(M)) / 100) 
j = Round(100 * Abs(M) + 0.00001) - Y * 100 
DR Eg 
A= IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元 ") 
b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & " 角 ", IIf(y 
Te 
c = IIf(f < 1,，" 整 ",，Application.Text (Round(f，0)，"[DBNum2]") & "分 ") 
N2RMB = IIf(Abs(M) < 0.005, "", IIf(M < 0, " 负 EA&bec,AgDb ec)) 
End Function 


技巧 2: 理解 自 定义 函数 的 误区 
在 使 用 自 定 义 函 数 时 存在 以 下 两 个 误区 。 
(1) 编写 完成 的 自 定义 函数 , 在 其 他 工作 筹 使 用 时 , 函数 返回 的 是 错误 符号 “#NAME?”。 
自 定义 函数 一 般 情况 下 只 能 在 含有 函数 代码 的 工作 敌 内 使 用 。 如 果 需 要 让 该 自 定义 函数 
在 所 有 打开 的 Excel 2010 工作 德 中 使 用 ， 需 要 保存 为 加 载 宏文 件 并 进行 加 载 。 


(2) 利用 函数 在 单元 格 中 返回 引用 单元 格 的 格式 ， 如 字体 、 大 小 、 颜 色 等 。 
在 工作 表 中 使 用 的 函数 只 能 返回 值 ， 而 不 能 改变 工作 表 、 单 元 格 等 内 容 的 结构 。 
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利用 Excel VBA 程序 代码 可 以 进行 复杂 的 数据 分 析 ， 这 在 现实 工作 中 使 用 非常 广泛 。 本 
章 以 商品 销售 数据 为 例 ， 演 示 使 用 Excel VBA 程序 代码 进行 数据 分 析 的 操作 方法 。 通 过 本 章 
的 学 习 ， 可 以 使 读者 轻松 掌握 完成 复杂 数据 分 析 任务 的 技能 。 


14.1 
销售 数据 分 析 


- 般 销 售 型 企业 往往 会 有 大 量 的 客户 订单 与 商品 库存 信息 要 处 理 。 合 理 有 效 地 处 理 这 些 
数据 可 以 准确 计算 商品 的 实际 需求 量 ， 便 于 补给 缺 货 ， 同 时 还 可 以 计算 出 销售 额 等 信息 。 本 
节 将 主要 介绍 销售 数据 的 分 析 方 法 。 


[加 | 商品 库存 需求 分 析 


商品 销售 时 需要 有 充足 、 合 理 的 库存 ， 过 多 的 库存 会 增加 不 必要 的 投资 ， 库 存 太 少 又 不 
能 满足 销售 的 需求 ， 所 以 要 合理 调整 库存 。 商 品 库存 需求 量 即 订购 量 与 库存 量 之 间 的 差 值 ， 
反映 了 商品 的 一 种 供求 关系 。 通 过 商品 库存 需求 量 分 析 ， 不 仅 可 以 清楚 该 商品 的 库存 量 ， 掌 
握 库 存量 与 市 场 订购 量 之 间 的 关系 ， 而 且 还 可 以 制订 更 好 的 生产 计划 。 


【 例 14.1】 制 作 2012 年 第 一 季度 商品 库存 需求 分 析 表 ， 通 过 计算 各 种 不 同月 份 的 “需求 
量 ” 来 分 析 库 存量 与 订购 量 之 间 的 关系 。 具 体 的 操作 步骤 如 下 。 


@ 贡 新 建 一 个 工作 簿 ， 在 Sheetl 工作 表 中 ,选择 A1:H1 单元 格 区 域 ， 单 击 功能 区 【开始 】 
选项 卡 下 的 【合并 后 居中 】 按 钮 国 ， 将 所 选单 元 格 合并 ， 并 在 其 中 输入 “2012 年 第 一 季度 商品 
需求 量 及 销售 情况 分 析 "， 如 图 14-1 所 示 。 

Al ~ 区 X VY 到 | 2012 年 第 一 季度 商品 需求 量 及 销 省 情况 分 析 


ai 
2012 年 第 一 季度 商品 需求 量 及 销售 情况 分 析 


站 四 om 


M4 PH| Sheetl / Sheet2 一 Sheet 全 MT 


图 14-1 合并 单元 格 并 输入 标题 文字 
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@ 到 右 击 合并 后 的 单元 格 , 在 弹出 的 快捷 菜单 中 选择 【设置 单元 格格 式 】 菜单 命令 , 打开 【 设 
置 单元 格格 式 】 对 话 框 。 在 【字体 】 选 项 卡 的 【字体 】 列 表 框 中 选择 “华文 新 魏 "， 在 【字形 】 列 


表 框 中 选择 “常规 ， 在 【字号 】 列 表 框 中 选择 “16 ， 在 【颜色 】 下 拉 列 表 框 中 选择 要 设置 的 颜 
色 ， 如 图 14-2 所 示 。 


| 履 砍 车 起 AaBbCc -| 
口号 四 


这 是 TrveTyFe 字体， 屏 项 和 打印 机 上 半 术 使用 法 字 件 。 


Ca 
图 14-2 【设置 单元 格格 式 】 对 话 框 


灰色 ， 如 图 14-3 所 示 。 


[EEELTY ET 了 


示例 


图 14-3 【填充 】 选 项 卡 


罗 设置 完成 后 ， 单 击 【 确 定 】 按 钮 ， 返回 工作 表 界 面 ， 可 看 到 设置 后 的 单元 格 字体 和 填充 
效果 ， 如 图 14-4 所 示 。 


天 | 2012 年 第 一 季度 商品 需求 量 及 销售 情况 分 析 


Je 


14-4 设置 的 单元 格 效果 
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ps [PTR 入 门 与 实战 


@ 副 在 A2:H2 单元 格 区 域 中 分 别 输入 日 期 “品牌 “产品 型 号 ” “订购 量 ”.“ 库 存量、 


ty “单价 ”和 “销售 金额 ”各 项 标题 ， 如 图 14-5 所 示 。 


H2 -@ 到， 销售 金额 
A lB C D E 下 G 了 


日 期 品牌 产品 型 号 订购 量 。 库存 量 。 需求 量 。 单价 


图 14-5 输入 各 标题 项 


则 右 击 选择 的 A2:H2 单元 格 区 域 ， 在 弹出 的 快捷 菜单 中 选择 【设置 单元 格格 式 】 菜 单 命 
令 ， 打开 【设置 单元 格格 式 】 对 话 框 ， 在 其 中 设置 各 标题 的 字体 为 “宋体 ， 字 号 为 “12 ， 并 设 


置 单 元 格 区 域 的 背景 颜色 为 浅 蓝 色 ， 如 图 14-6 所 示 。 


图 14-6 设置 字体 及 单元 格 背景 色 
天 在 A3:G29 单元 格 区 域 中 ， 输 入 如 图 14-7 所 示 的 各 项 数据 信息 。 
习 A B c D E 下 © 有 加 
2 
3 |1 月 联想 G470AH-ITH 100 200 ¥3,799 
区 一 Y470N-IFI (H) 120 100 ¥5, 500 
[5 | ThinkPad E420 150 80 ¥4,799 
6 惠普 G4-1207tx 60 120 ¥3, 849 
到 4-1012TX 80 120 于 由 099 
8 84-1058TX 100 100 ¥3, 800 
区 剖 | 侍 果 Pro OIC7OOCHAA) 40 50 ¥7, 686 司 
| 1o Air (MC968CH/A) 70 45 ¥7, 398 
[| Air (NC965CH/A) 60 40 ¥9, 598 
12 |2 月 联想 G470AH-ITH 120 80 ¥3,799 
| 3181 Y470N-IFI (H) 100 120 ¥5, 500 
|14 ThinkPad E420 130 100 于 和 799 
115 惠普 G4-1207tx 130 90 ¥3, 849 
| 316. 84-1012TX 90 50 ¥4, 099 
17 84-1058TX 80 55 ¥3, 800 
18 苹果 Pro (MC700CH/A) 50 100 ¥7, 686 Fr 
|19 Air (KC968CH/A) 80 64 ¥7, 398 
| 20 Air (NC965CH/A) 60 80 ¥9, 598 
|2113 月 联想 G470AH-ITH 200 165 ¥3,799 
留 Y470N-IFI (H) 180 126 ¥5, 500 
ThinkPad E420 110 96, ¥4799 ~ 
Sheetl /Sheet2 .Sheet3 一 柯 TI a JJ 


司 14-7 ”输入 各 项 数据 信息 


@ 闻 输入 完毕 后 ， 右 击 选择 的 A1:H29 单元 格 区 域 ， 在 弹出 的 快捷 菜单 中 选择 【设置 单元 格 


格式 】 菜 单 命令 ， 打 开 【 设 置 单 元 格格 式 】 对 话 框 ， 选 择 【 边 框 】 选 项 卡 ， 从 中 为 所 选单 元 格 
域 设置 单元 格 的 边框 颜色 及 样式 ， 如 图 14-8 所 示 。 
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区 
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| [ 田 


出 


了 荐 TTCTTI 


图 14-8 【边框 】 选 项 卡 


@ 昌 设置 完成 后 ， 单 击 【 确 定 】 按 钮 ， 返 回 了 


[ 作 表 ， 可 看 到 设置 边框 后 的 效果 ， 如 图 14-9 


所 示 。 
] 

1 

|1 月 联想 (G470AH-ITH 100 200| ¥3, 799| 
生 [7470N-IFI (H) 120 100 ¥5, 500 
5 ThinkPad E420 150| 80 于 由 799 
6 惠普 |G4-1207tx 60| 120| ¥3, 849| 
7 g4-1012TX 80 120| ¥4, 099 
8 g4-1058TX 100| 100| ¥3, 800 
9 苹果 IPro (NC700CH/A) 40| 50| ¥7, 686 
10 Air (NC968CH/A) 70| 45| ¥7, 398 
11 IAir (NC965CH/A) 60| 40| ¥9, 598| 
12 |2 月 联想 (G470AH-ITH 120 80 ¥3, 799| 
1 Y470N-IFI (H) 100 120 ¥5, 500| 
14 ThinkPad E420 130| 100| 于 由 799 
15 惠普 [G4-1207tz 130| 90| ¥3, 849 
16 g4-1012TX 90 50 ¥4, 099 
17 g4-1058TX 80 55 ¥3, 800 
18 苹果 IPro (KC700CH/A) 50| 100 ¥7, 686 
19 Air (WC968CH/A) 80| 64 ¥7, 398) 
20 IAir (NC965CH/A) 60| 80 ¥9, 598| 
21 3 月 联想 IG470AH-ITH 200| 165| ¥3,799 
22 Y470N-IFI (H) 180 126 ¥5, 500| 
23 ThinkPad E420 110| 96 于 由 799 
24 惠普 G4-1207tx 150| 200| ¥3, 849 
M4 SM Sheetl Sheet2 ， Sheet3 加 一 HN 昌 ] WH 


14-9 ”设置 单元 格 边框 属性 


因 好 选择 工作 表 中 功能 区 的 【开发 工具 】 选 项 卡 ， 单 击 【 代 
码 】 选 项 组 中 的 【Visual Basic】 按钮 , 打开 【Microsoft Visual Basic 
for Application】 主 窗口 ， 在 菜单 栏 选择 【插入 】> 【模块 】 菜 单 
命令 ,插入 一 个 模块 ， 并 命名 为 “模块 1 。 双 击 进入 该 模块 代码 
窗口 中 , 然后 在 菜单 栏 选择 【插入 】> 【过程 】 菜单 命令 , 打开 【 添 
加 过 程 】 对 话 框 , 在 【名 称 】 文 本 框 中 输入 “统计 需求 量 在 【类 
型 】 选 项 组 中 选中 【 子 过 程 】 单 选 按钮 ， 在 【范围 】 选 项 组 中 选 


中 【公共 的 】 单 选 按钮 ， 如 图 14-10 所 示 。 


db 
框架 ， 如 图 14-11 所 示 。 


【确定 】 按 钮 ， 在 模块 1 中 添加 一 个 子 过 程 的 代码 ”图 14-10 【添加 过 程 】 对 话 框 
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从 


3 


ETA 入 门 与 实战 


便 量 crozoft Visual Basic for Applications - 新 建 Wic 


t+ Ercel 工作 去 -zlsr - .-- 回回 贺 


尖 克昌 关上 日 袖 加 四 插 AD 宙 XiO) 丙 2D) 二 5® IRD 站 全 已 宁 A 音 DQD WW) -Sx 


5 
[通用 ) 


Publie suh 纺 二 过 求 量 
ash 


于 守节 


图 saestl Gheetl) 

国 ssoet2 Sheei2) 

国 She cheeo) 
和 Thisforktoek 

名 大 


术 R1 


图 14-11 添加 子 过 程 的 代码 框架 
因 到 在 该 子 过 程 的 代码 框架 中 输入 以 下 程序 代码 ， 如 图 14-12 所 示 。 


Public Sub 统计 需求 量 () 


Dim i As Integer ' 定 义 用 于 循环 的 整 型 变量 
For i= 3 To 29 
Cells(i, 6).Select 


If Cells(i, 4) > Cells(i, 5) Then 
"判断 订购 量 与 库存 量 之 间 的 大 小 关系 , 如 果 订 购 量 大 于 库存 量 


Cells(i，6) = Cells(i，4) - cells(i，5) “' 需 求 量 = 订 购 量 -库存 量 

Selection.Interior.ColorIndex = 15 “' 设 置 单元 格 的 底 色 为 “灰色 -25%” 
Else 

cells(i，6) = "无 " 


With Selection 
.Interior.ColorIndex 


37 “设置 单元 格 填充 颜色 为 “ 淡 蓝 色 ” 


.HorizontalAlignment = xlCenter ' 设 置 居中 对 齐 
.VerticalAlignment = xlCenter 
.Font.Name = "Times New Roman" ' 设 置 字体 格式 
.Font.Size = 12 
.Font.Bold = True 
.Font.ColorIndex = 3 
End With 
End If 
Next i 
End Sub 


[ 码 用 ) 


Public Sub 统计 需求 量 0 
Dim i As Integer “定义 用 于 循环 的 整 型 变量 
por i=3To29 
Cells (i, 6),Select 


| [请 计 天 地 是 


IE cellsG 4) > Cellsli 


Gi, 5) Then 

判断 订购 量 与 库存 鼻 之 间 的 大 小 关系 Bi Se 
Cells(i, 6) = Cells(i, 4) - CellsGi, 5) “ 
Selection Interior. ColorIndex = 15 


订购 量 -库存 量 
ee 水 色 -25%” 


Else 
CellsG, 


6) = “无 ” 


With Selection 


HorizontalAlignme 
VerticalAlignment 
Font Rene = 和 es New Ra 
Font. Size = 12 

Font. Bold = True 


Font. ColorIndex = 3 
End With 
End If 
Next i 
End Sub 


Interior. ColorIndex = 37 9 淡 蓝 色 ” 


Center 


“设置 牛 中 
“设置 字体 格式 


14-12 输入 完整 的 程序 代码 
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【提示 】〗 这 段 代 码 首先 利用 For 循环 在 第 3 行 到 第 29 行 单元 格 区 域内 逐 行 比较 商品 订购 量 与 库存 量 之 
间 的 大 小 关系 ， 然 后 根据 判断 结果 来 计算 商品 的 需求 量 ， 并 对 需求 量 所 在 单元 格 进行 相应 的 格式 设置 。 


加 为 了 方便 程序 代码 的 执行 , 可 以 在 工作 表 中 为 其 设置 执行 按钮 . 选择 功能 区 【开发 工具 ] 
选项 卡 ， 在 【控件 】 选 项 组 中 的 【插入 】 下 拉 列 表 中 选择 【按钮 】 按 钮 习 ， 然 后 在 工作 表 的 适当 
位 置 ， 当 鼠标 指针 变 为 “+” 状 时 ， 按 住 鼠 标 左 键 不 放 并 拖 动 至 适当 大 小 后 释放 鼠标 左 键 ， 系 统 
则 弹出 【指定 宏 】 对 话 框 ， 在 【 宏 名 】 列 表 框 中 选择 “统计 需求 量 ” 选 项 ， 如 图 14-13 所 示 。 


图 14-13 【指定 宏 】 对 话 框 
li 到 单 击 【确定 】 按钮 , 完成 宏 的 指定 操作 。 右 击 插 入 的 按钮 , 在 弹出 的 快捷 菜单 中 选择 【 编 


辑 文字 】 菜 单 命令 , 将 按钮 名 称 更 改 为 “计算 需求 量 "， 然 后 单 击 工作 表 中 的 任意 单元 格 , 退出 该 
按钮 的 编辑 状态 ， 如 图 14-14 所 示 。 


3 I | 
1 
3 联 租 
311 朋 1B47OAE-TTH 100 200 ¥ 3, 199| be 2 
4 [7470N-IFT (H) 120| 100| 5, 500| Dia 
5 Thinkpad E420 | 150| 8d| 4 799| 
日 惠普 |64-l207tx 60| 120| 5, B49| 
ad-1012TX 80| 120| ¥ 4, 099| 
a 1058TX loo 100| 兰 s, B00| 
可 芋 果 |Pro OICT0OCH7A7 40| 50| 7, 686| 
10 [hir (NC968CH/A) T0| 45) ¥7, 398| 
11 [Mir OICe65cHAA) 60| 40| ¥o, 598) 
12 12 月 | 联想 |6470AE-ITH 120| 80| ¥5, 799| 
13 [7470N-IFI(H) 100| 120 ¥5, 500| 
14 Thinkpad B420 | 130| 100| ¥4, 799) 
15 二 痊 |64-1207tx 130| 90| 5, 849| 
16 84-10127X 90| 50| ¥ 4, 099| 
17 4-1058TX 80| 55| 于 3. 800| 
18 芋 果 |Pro (mc7005H/A) 50| 100| 7, 686| 
19 [air (C968CH/A) 80| 64| ¥ 7, 398| 
20 Air (MCOBSCH/A) 60 0| 于 9 598) 
21 3 月 | 联想 |6470AE-ITH 200| 165| ¥ 3 799| 
22 a7ON-IFI(H) 180| 126| 5, 500| 
23 ThinkPad R420 | 110| 96| ¥4, 799| 
24 证 答 |e4-1207tz 150| 200| Es, 849| 
WA Sheotl, Sheetz shoe el I FI Gl 


图 14-14 更 改 按钮 名 称 
【计算 需求 量 】 按 钮 ， 执 行 指 定 的 过 程 ， 得 到 的 结果 如 图 14-15 所 示 。 


地 
志 
[=n 
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[入门 与 实战 


了 下 卫 6 下 Ee 
3 |1 月 | 联 妇 G470A8-ITH 100| 20 王 s. 799| j 
本 | YA7ON-IFT (H) 120| 100| ¥5, 5o0| a 
a JThirkPad R420 150| 80| ¥4, 799| 
5 夏普 Gd-1207tx 60| 120| 5, B43 
国 2 jgd4-1012TX | 120| ¥4, 099| 
B 4-1058TX 100| 100| ¥5, 800| 
a [这 果 Proc700c/4)| ao| 5 ¥7, egs| 
10 | Air QIC968cHAA)| 70| 上 5 ¥7, 398| 
11 |Air (NCIGSCH/A) 60| 40| 王 9, 598| 习 
12 |2 月 “ 荆 起 ,cd7OAH-ITH 129| 80| 于 3.799| 
1s J¥470N-IFT (H) 100| 120| ¥5, 500| 
| ThinkFed B425 | 130| 100 ¥4, 799| 
15 刘 普 |G4-1207tz | 130| gol YS, 843| 
ETY gd-lolzTX 20| sol 099| 
17 | a4-1058TX Bo] 55| 3, 800| 
18 | 尝 果 Pre (NC7000H/4) 50| 100| ¥7, 685| 
19 JAir (MC9080H/3) B80 64 了 ,398| 
20 JAir OIC965cHAA)) 60| 80| ¥9, 598| 
21 3 月 里 起 cd47OAH-ITH 200| ”165| ¥S, 799| 
22 3470N-IFI(D) | 180| 126 ¥5, 500| 
23 ThiakEad M29 | 110| 36 
2 Cd4-1207tz 150| 200| ¥5, 849| - 
NVM] shectl, Sheotd , shect, 0 E sp 


图 14-15 计算 出 需求 量 


i 可 在 上 述 代 码 窗口 中 添加 下 面 的 代码 , 将 库存 充足 的 商品 记录 隐藏 起 来 , 这 样 可 以 突出 
显示 库存 需求 量 不 足 的 商品 ， 如 图 14-16 所 示 。 


Publie Sub 统计 需求 量 到 
We As pe 义 用 于 笨 环 的 整 型 变量 


nd 
ls 
i he 关系 加 于 
Cells(i, 6) = Cells 4) -~ CellsGi, 库存 量 
a Selection Interior. di = 15 四 为 "基色 -25%” 


CellsG, 6) = “无 
With Selection 
Interior. CelorIndex = 37 ,设置 单元 | 色 为 " 淡 覃 色 " 
JorizentalALigpment = “ 世 置 店 中 对 齐 
ent = xlCeni 
ii Yew ss “设置 字体 格式 


Fublie Sub 隐 逢 0 
Mak As ET “定义 用 于 循环 的 整 型 变量 
calsG，6) = "Er" Th 
ows G).Seleet “这 撑 第 1 行 
Selection EntireRow_ jidden = True “ 隐 池 第 i 行 


图 14-16 输入 隐藏 充足 商品 记录 的 代码 


Public sub 隐藏 () 
Dim i As Integer  ”' 定 义 用 于 循环 的 整 型 变量 
Bor = 9"T0 29 
If Cells(i, 6) = "无 " Then 
Rows (i) .Select ' 选 择 第 i 行 
Selection.EntireRow.Hidden = True ' 隐 藏 第 i 行 
End If 
Next i 
End Sub 


因 天 关闭 VBA 代码 窗口 ， 返 回 工 作 筹 中 ， 选 择 功 能 区 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 
项 组 中 的 【插入 】 下 拉 列 表 中 选择 【按钮 】 按 钮 型 ， 然 后 在 工作 表 的 适当 位 置 ， 当 鼠标 指针 变 为 
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“+” 状 时 ， 按 住 鼠 标 左 键 不 放 并 拖 动 至 适当 大 小 后 释放 鼠标 左 键 ， 系 统 则 弹出 【指定 宏 】 对 话 
框 ， 在 【 宏 名 】 列 表 框 中 选择 “隐藏 ”选项 ， 如 图 14-17 所 示 。 


位 置 (WW) | 所 有 打开 的 工作 湾 
说 明 


图 14-17 【指定 宏 】 对 话 框 


ii 到 单 击 【 确 定 】 按 钮 ， 完 成 宏 的 指定 操作 。 然 后 右 击 插 入 的 按钮 ， 在 弹出 的 快捷 菜单 中 选 
择 【 编 辑 文字 】 菜单 命令 ， 将 按钮 名 称 更 改 为 “隐藏 库存 充足 产品 ”， 然 后 单 击 工作 表 中 的 任意 单 
元 格 ， 退 出 该 按钮 的 编辑 状态 ， 如 图 14-18 所 示 。 


图 14-18 更改 按钮 名 称 


ii 到 单 击 【 隐 藏 库存 充足 产品 】 按 钮 ， 执 行 指定 的 过 程 ， 隐 藏 库存 充足 的 商品 记录 ， 如 图 
14-19 所 示 。 


| 
2 E| 
3 |1 月 | 联想 IG470AH-ITH 计 下 
TtTON-IPIT(BJ) | i 
5 ThinkPad E420 和 
昌 惠普 |Gt-1207tx 9 隐 臣 库存 充足 产 听 i: 
gt-1012TX 
8 gt-1058TX 
9 | 宇 果 |Pro (Wc7000H/A) HE 
10 [Atr (NC9582H/A) i 
11 [Air (MC9S5CH/A) | [| 
12 |2 月 | 联想 |c470AH-ITH i! 
13 IY470N-IRI(H) i 
14 Thinkpad E420 3 
15 惠普 |G4-1207tx 3 
16 jgt-10L2TX 
17 Bt-1058TX 1 
18 | 主 果 |Pro (NC700CH/A) 无 1 
19 [Air OIC958CHA) 4 Y?, 398 1 
20 Air (MC9S5CH/A) mE)| Yo, sg i 
到 13 月 | 联想 |G470AH-ITH 200| 1e5| ¥3, 799| i 
2 ETIHD | 180| 12 到 
23 [ThinkpPad Ed20 110| 36 于 由 799 本 
中 吉普 |G4-1207tx 150| zoo] Ys 9) 时 : 上 
i 
:i 
:i 
i 


[3 |Y470N-IFI (H) 120| 100| 0| 5, 500| 计算 希 求 量 | 
.a ThinkPad E420 150| 070| ¥¢,7%9| 

10 ir(WC368CH/A]| 70| 45B S25| ¥", 98| 隐藏 库存 充足 产 吕 
11 lair (C965CH/A)| 60| 40 人 20| 0, 503 hrm am 
12 |2 月 | 联想 le4TOAH-ITH 120| 0| | ¥3, 799 

14 /ThinsPad E420 130| 100P=30| ¥4,799| 

15 评 葵 |c4-1207tx 130| oA6| ¥3. 49| 

16 4-1D12TX 90| gol 099| 

17 4-1053TX 80| 55 B25|_ 3, goo| J 
19 JAiT (NC368CH/A] | 80| 64 SM) ¥", 398 四 
| 21 .3 月 | 联想 |c470AH-ITH 200| 165 B25| 3, 709| 

22 [aroW-IFITGD 180| 126| 5, 500| 

23 [ThingPad E420 | 110| 96 ¥é, ?99| 

26 Ed-1053TX 110| 网 | ¥3, 800| 

27 这 村 |Pro (xc700CH/A] | 110| gs| 7, 685| 

29 [ir (Wo36508/s) | — 120| 66 ES2| 3, 598 

30 


14-19 ”隐藏 库存 充足 行 的 效果 
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[ET 入 门 与 实战 


刀 凶 当 用 户 想 要 查看 所 有 商品 的 库存 需求 记录 ， 需 要 取消 隐藏 操作 ， 可 在 VBA 代码 窗口 
输入 以 下 取消 隐藏 充足 库存 行 的 程序 代码 ， 如 图 14-20 所 示 。 


Public Sub 取消 隐藏 () 
Dim k As Integer ' 定 义 用 于 循环 的 整 型 变量 
For k= 3 To 29 
了 ECel15(K 6) = "FE" Then 
Rows (k) .Select ' 选 择 第 k 行 
Selection.EntireRow.Hidden = False “' 取 消 该 行 的 隐藏 
End If 
Next k 
End Sub 


了 | | 取消 隐 豪 zz 
Interior. ColorIndex = 37 人 


JiorizontalAli gpment = xlCenter 
YerticalALigpment = xlCenter 

Font. Wane = “Times Jew Ronan”“ 设 置 字体 格 式 
Font. Size = 12 

Font. Bold = True 


了 ont. ColorIndex = 3 
End With 
End If 
Next i 
End Sub 


Public Sub 隐 季 0 
Dim i As Integer 。 “定义 用 于 循环 的 整 型 变量 


Yor i = 3 Te 29 
IE Cellsfi，6) = “无 Then 
Bows (i). Select “ 选 振 第 i 行 本 
Selection. EntireRow Hidden = True “ 隐 某 第 行 
End If 
Next i 
由 


图 14-20 取消 隐藏 库存 充足 行 的 代码 
亡 粗 按照 上 文 的 方法 为 该 过 程 添加 执行 按钮 . 在 打开 的 【指定 宏 】 对 话 框 中 选择 “取消 隐藏 
选项 ， 如 图 14-21 所 示 。 
忆 到 将 按钮 名 称 更 改 为 “取消 隐藏 ， 然 后 单 击 工作 表 中 的 任意 位 置 退出 该 按钮 的 编辑 状态 ， 
如 图 14-22 所 示 。 


1 
| JY4708-IP7 (1) 
区 ImimkPad E420 | 150| 
1 lair ONc969cH/A) 
| AirQICS65CR 习 
E22 | e470N-ITH | 120| 


bs mhinkpad B420 | — 130] — i 


1 8 1a0| 
一 | 
思 


位 置信 :| 所 有 打开 的 工作 簿 Y bs 


WO 9 


20| 
+ Ai 让 
| EE. ,Tg | 
人 [2 ] “mrzo-rro | 
加 [| 一 aaaa az 
[E33 
Esa 
Ce mw 代 
[EE 


图 14-21 【指定 宏 】 对 话 框 14-22 命名 【取消 隐藏 】 按 钮 
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世 


击 【 取 消 隐藏 】 按 钮 ， 即 可 查看 所 有 商品 的 记录 。 


ij : 


到 此 ， 就 完成 了 对 商品 需求 量 的 分 析 操 作 。 用 户 可 根据 自己 的 实际 情况 ， 灵 活 地 运用 
VBA 设计 、 编 辑 符合 自己 工作 需要 的 VBA 过 程 。 


BR 商品 销售 情况 分 析 


商品 销售 情况 分 析 是 合理 调整 销售 策略 的 前 提 ， 如 果 不 能 准确 地 掌握 销售 情况 ， 会 影响 
产品 收益 。 以 “2012 年 第 一 季度 商品 需求 量 及 销售 情况 分 析 ” 表 为 例 ， 使 用 Excel VBA 定期 
进行 商品 销售 情况 分 析 的 方法 介绍 如 下 。 


1. 计算 销售 金额 
使 用 Excel VBA 计算 商品 销售 金额 具体 操作 步骤 如 下 。 


@ 遇 打开 上 文中 编辑 的 “2012 年 第 一 季度 商品 需求 量 及 销售 情况 分 析 ” 工 作 表 Sheet1， 选 
择 功 能 区 【开发 工具 】 选 项 卡 ， 单 击 【 代 码 】 选 项 组 中 的 Visual Basic 按钮 ， 打开 Microsoft Visual 
Basic for Application 主 窗口 ， 在 菜单 栏 选择 【插入 】> 【模块 】 菜 单 命令 ， 插 入 一 个 模块 ， 在 该 
模块 的 【名 称 】 属性 列表 框 中 将 其 更 改 为 “统计 销售 金额 ， 如 图 14-23 所 示 。 


图 14-23 插入 模块 并 更 改 模块 名 称 
@ 到 双击 进入 该 模块 代码 窗口 中 , 在 其 中 输入 以 下 实现 统计 销售 金额 的 代码 程序 ,如 图 14-24 
所 示 。 
Public Sub 分 析 销 售 金额 () 


Dim i As Integer ， 定义 用 于 循环 的 整 型 变量 
For i=3 To 29 "设置 循环 变量 
Cells(i，8) = cells(i，7) * Cells(i，4) ”' 销 售 金额 = 单价 * 订 购 量 
Next i 
End Sub 
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Wh 


c for Applications - 新建 了 icrosoft Excel 工作 表 .xls; 


i 考 ># 昌 区 SB 视 5V 车 和 D 桥 tO) 渍 3D) 去 5R) 工具 D 外 按 & 订 A) 齐 DOD 


国 国 :加 % 力 风 拆 Nia 导 休 汪 入 @ 和 7, 列 1 
[x] 


-局 回 网 


了 了 万 第 本 主公 


14-24 ”计算 销售 金额 程序 代码 


发 了 


@ 旨 为 了 方便 程序 代码 的 执行 ， 要 在 工作 表 中 设置 执行 按钮 。 选 择 功 能 区 【[ 玫 


卡 ， 在 【控件 】 选 项 组 中 的 【插入 】 下 拉 列 表 中 选择 【按钮 】 按 钮 起 ， 然 后 在 了 


[ 具 】 选 项 


[ 作 表 的 适当 位 置 


处 ， 当 鼠标 指针 变 为 “+” 状 时 ， 按 住 鼠 标 左 键 不 放 并 拖 动 至 适当 大 小 后 释放 鼠标 左 键 ， 系 统 则 
弹出 【指定 宏 】 对 话 框 ， 在 【 宏 名 】 列 表 中 选择 “分 析 销 售 金额 ”选项 ， 如 图 14-25 所 示 。 


位 置 9): | 所 有 打开 的 工作 湾 
说 明 


14-25 【指定 宏 】 对 话 框 


@ 绩 单 击 【 确 定 】 按 钮 ,完成 宏 的 指定 操作 。 然 后 右 击 插入 的 按钮 ， 在 弹 


hE 击 了 


择 【编辑 文字 】 菜单 命 令 , 将 按钮 名 称 更 改 为 “计算 销售 金额 ”， 然后 
即 可 退出 该 按钮 的 编辑 状态 ， 如 图 14-26 所 示 。 
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的 快捷 菜单 中 选 
[ 作 表 中 的 任意 单元 格 ， 


Pi B [3 D 下 F 3 H I 丁克 
3 疡 
2 
3 11 月 | 联 思 C470AH-ITHE 100| 200| ¥3, 799) 
司 | JY470N-IFI(H) 120| 100| ¥5, 500| 计算 条 求生 
县 3 ThinkPad E420 150| 80| ¥4, 799| 
6 吉普 G4-1207tx 60| 120| YY3, B49| 路 若 库 存 充足 产 可 
县 Jgd4-1012TX 80| 120| ¥4, 099| 
8 Jg4-1058TX 100 100 ¥3, 800| 取 清 隐 训 | | 
9 苹果 Pro(MC7000H/3) 40| 50| ¥7, 686| 一 上” | 间 
bo JAlr (WC9680H/3) To 是 ¥7, 398| 计算 销售 全 类 
11| | Airdtco65cHA)| 6o ¥9, 598| 
12 2 月 | 联想 C470AH-ITH 120| 80 ¥3, 799| 
13| Ya70N-IFI(H) 100| 120| ¥5, 500| 
14 IThinkPad gd20 | 130| 100| ¥4, 799| 
后 | 刘 普 cd4-1207tz 130| 90 ¥3, B49| 
16 gd4-1012TX 90| 50 于 4 099| 
[27 ed-1058TY ol 四 ¥3, 800| 
18 苹果 Pro(Mc7000H8/3) 50| 100 ¥7, 686| FE 
19 Air (WC9680H/) 8 国 ¥7, 398| 
20 JAIr (MC965CH/A) 60| 80| 于 9, 598| 
| 24.3 月 “| 联想 Gd470AH-TTH 200| 165| ¥3, 799| 
|22 TY470N-IFI(GH) 180| 126| ¥5, 500| 
-23 IThinkPad R420 | llI0L 936| 4 
Ws VN| sheet1 /ets heet} 1 站 Gil 


图 14-26 更 改 按钮 名 称 


罗 国 单 击 【 计 算 销售 金额 】 按 钮 ， 执 行 指 定 的 过 程 ， 计 算出 销售 金额 ， 显 示 在 H 列 中 ， 如 
14-27 所 示 。 


Ee 

2 

和 [Ga7OAH-ITH | ¥s,799 

4 IY47O0N-IFI (HB) ¥5, 500| 

5 IThinkPad Et20 ¥4, 799| ¥719, 850| 

6 惠普 Ic4-1207tx 60| | ¥3, 849| ¥ 230, 940| 

7 g4-1012TX YY¥¢, 099| ¥ 327, 920| 

8 | 4-1058TX 芋 3, 800| 半 380, 000| 。 取 菠 隐 基 

9 | 华 果 |Pro(IC7OOCHAA) ¥", 686| "| 
10 [Air OIC968CHAA) ¥", 398| 人 断 
| [Air (NC965CH/A) 9, 598| 半 务 本 省 多 机 
12 2 月 “| 联想 IGs470AH-ITH 加 _¥3,799| ¥ 455, 880| 

13 IY47ON-IFI (H) = ¥5, 500| ¥ 550, 000| 

14 IThinkPad Et20 下 4 799| ¥ 623, 870| 

15 | 惠普 |C4-1207tx ¥3, 849| ¥ 500, 370| 

16| gt-1012TX 下 4 099| ¥ 368, 910| 

| [84-1058TX 5 工 3, 800| ¥ 304, 000| 

18 | | 苹果 |Pro (WC700CH/A) ¥7, 686| 可 
19 | [Air OIC968CHAA) 关 T 398| 

20| | _JAir OIC965CHAA) | 荆 9 598| 

21 13 月 |Ga7OAH-ITH ¥3, 799| 

22 |Y47ON-IFI (H) 

23 b 
CI Gi 


14-27 ”计算 销售 金额 结果 


2. 将 计算 结果 图 表 化 


数字 并 不 能 直观 地 表示 统计 分 析 结 果 ， 所 以 可 以 将 其 表示 为 更 具 表 现 力 的 图 表 形 式 。 将 
计算 得 到 的 结果 以 图 表 的 形式 显示 出 来 的 具体 操作 步骤 如 下 。 


@ 遇 选择 工作 表 功 能 区 的 【开发 工具 】 选 项 卡 ， 单 击 【 代 码 】 选 项 组 中 的 【Visual Basic】 按 
钮 ,打开 【Microsoft Visual Basic for Application】 主 窗口 ， 在 菜单 栏 选 择 【 插 入 】> 【模块 】 菜 单 
命令 ， 插 入 一 个 模块 ， 在 该 模块 的 【名 称 】 属 性 列表 框 中 将 其 更 改 为 “销售 额 图 表 ， 如 图 14-28 
所 示 。 
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t Excel 工作 表 .xlsa - --- 基站 | 贺 | 
ID F(A) OW) WM) -9 x 


9 


[Exce! 2010 VBA ANI 


探 字母 序 | 按 分 类 序 | 


多 称 ) 


图 14-28 插入 模块 并 更 改 模块 名 称 


@ 到 双击 该 模块 进入 代码 窗口 ， 在 菜单 栏 选 择 【 插 入 】> 【过 程 】 菜 单 命令 ， 打 开 【 添 加 过 
程 】 对 话 框 , 在 【名 称 】 文 本 框 中 输入 “销售 额 图 表 ， 在 【类 型 】 选 项 组 中 选中 【 子 过 程 】 单 选 
按钮 ， 在 【范围 】 选 项 组 中 选中 【公共 的 】 单 选 按钮 ， 如 图 14-29 所 示 。 

@ 旨 单 击 【 确 定 】 按 钮 ， 在 模块 中 添加 了 子 过 程 的 代码 框架 ， 如 图 14-30 所 示 。 


TIE 一 TCROD 
站 区 YTT> OF nN 


名 称 叫 。 捕 苦 作画 表 


人 公共 的 @@) 
个 私有 的 吕 ) 


厂 把 所 有 局 部 变量 声明 为 静态 变量 人) 


图 14-29 【添加 过 程 】 对 话 框 图 14-30 ”添加 子 过 程 的 代码 框架 
@ 细 在 该 子 过 程 中 输入 以 下 程序 代码 ， 如 图 14-31 所 示 。 


Public Sub 销售 额 图 表 () 

Charts.Add “添加 一 个 图 表 

ActiveChart.ChartType = xlLineMarkers ' 选 择 图 表 类 型 为 “折线 图 ” 

ActiveChart .SetSourceData Source:=Sheets ("Sheet1"). 

Range ("A2:C29,H2:H29")，PlotBy:=xlColumns ' 选 择 数 据 来 源 

ActiveChart .Location Where:=xlLocationAsObject, Name:="Sheetl1" ' 指 定 添加 


图 ' 表 的 位 置 
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With ActiveChart ' 设 置 图 表格 式 
.HasTitle = True 


.ChartTitle.Characters.Text = "销售 金额 分 析 " "设置 图 表 标 题 为 "销售 金额 分 


析 
.Axes (xlValue, xlPrimary) .HasTitle = True "设置 图 表 显 示 y 轴 坐 标 标题 
.Axes (xlValue, xlPrimary) .AxisTitle.Characters.Text = "销售 额 " "设置 
'y 轴 坐 标 标题 
End With 
End Sub 
| 通用 ) 了 | [销售 额 图 表 化 可 
le 过 和 重要 田 来 外 上 号 


start ChartType = xlLinellarkers 连 生 网 家 到 为、 折线 图 " 
ActiveChart. SetSourceData Source:=Sheets (“Sheetl”) 
Range ("A2:C29, 2:j29")，PlotBy;=xlColunns “选择 数据 来 源 


ActiweChart Is 可 Where:=xlLocationAsQbject, Nane:="Sheetl” “指定 添加 图 表 E 
th ActiveChar' "设置 图 表格 式 
Te Troe 
ChartTitle. Characters. Text = “销售 金额 分 析 ” 于 时 忆 二 销售 金额 
Axes (xlValue, xlPrimary). HasTitle = True 和 
Axes (xlYalue, xlPrinary). AxisTitle. Characters. rs = 和 置办 
End 内 ith 
Fe 
| 
于 4 [2 


#4 

3 

33 

#4 

i 

3 

4 

4 

#4 

i 
14-31 输入 完整 的 程序 代码 :| 

【提示 】 代 码 中 ， 首 先 使 用 Charts.Aqd 方法 创建 一 个 图 表 对 象 ， 并 设置 其 图 表 类 型 为 “折线 图 "， 然 后 
指定 图 表 的 数据 源 及 其 显示 位 置 ， 最 后 在 With 语句 中 设置 图 表 的 坐标 轴 情 况 及 其 标题 内 容 。 ii 
£4 

[加 按照 上 文中 介绍 的 方法 ,为 该 过 程 设置 执行 按钮 并 在 【指定 宏 】 对 话 框 的 【 宏 名 ] 列 | | 
表 框 中 选择 “销售 额 图 表 ” 选 项 ， 如 图 14-32 所 示 。 ji 
i 

i 

i 

i 

和 

i 

和 

i 

+ 

i 

i 

i 

1 


位 置 和 。 [所 有 打开 的 工作 乔 
说 明 


图 14-32 【指定 宏 】 对 话 框 
@gj 单 击 【 和 确定】 按钮， 完成 宏 的 指定 操作 。 然后 右 击 插入 的 按钮 ， 在 弹出 的 快捷 菜单 中 选 
择 【 编 辑 文字 】 菜单 命 令 , 将 按钮 名 称 更 改 为 “销售 金额 图 表 ”， 然后 单 击 工作 表 中 的 任意 单元 格 ， 
退出 该 按钮 的 编辑 状态 ， 如 图 14-33 所 示 。 


低 


[=n 
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下 下 王 时 了 
加 
三 联 覃 |caroul-rrt | 100 200| ¥3,.199| ¥379, soo| = 
4 470N-IFI(H) | 120| 100| ¥5,500| ¥ 550, 000| Ed 
3 nkPad F420 | 150 a0| 于 4 799| F713, 550| 
6 责 首 jc4-1207t | 的 120| ¥3, B49| 工 2: 歼 基 库存 充足 产品 
| |etlol B9| 120| ¥ 099| ¥ 327, 92 
el ja4-1058TE | 100| 1o0| 3, 300| 三 330, 000| 。 取消 隐 承 | 
9 于 lerolmcroocH/a)| eol gol 半 586| ¥307,440| 一 中 
968CHAA To| 45| T, 398| Y 517, i 
3 50 一 | | 半生 | 
12 联想 |G470&H-ITH 120 30| ¥3,799| ¥ 455, 880| 
13 4708- IFT CH) 100 120| 半 5, 500| 半 550, 000| 销 省 全 赢 加 表 | 
| 0 | 30| 00| 了 
5 专 普 |E4-1207tz 130| ol ¥3, Bt3| ¥ 500, 370| 
16 |E4-1012TX | 50| ¥ ,099| ¥ 358, S10| 
7 jes-losarx | aol se| 3 a00| F304, cool 
8 这 时 I [| mg T 
19 ir OIC95S3CHAAD 80| 54| ¥", 398| ¥ 591, 40| 
20 Air mcassc/a)| 60] an| 9, 598| ¥ 575, eol 
24 联 | 200| 165| ¥3,799| ¥759, 800| 
[ | 180| 126| ¥ 5, 500| ¥ 390, 000| 
2 minag E40 1 | 
YM] Shestl Snaat? nats P33 ict 虹 m Dl 


图 14-33 ”更改 按 钮 名 称 
@ 到 单 击 【 销 售 金额 图 表 】 按 钮 ， 执 行 指定 的 过 程 ， 在 指定 位 置 创 建 图 表 ， 如 图 14-34 所 示 。 


机 Tl © TD 
Ei at-10121X 89| 120| ¥4, 099| ¥ 327, 920| 
8 jgt-L053IX | 100| 1loo ¥3, 800| | 。 职 消 隐 荡 
9 从 如 | ¥7, et| 
1 AirCICSESCE 人 nl ¥7, 398| Yo17, 860| 
以 AirQIaescHAA) | 650| [ons go0| MEWS 
12 联想 C470AH-ITE 120| ¥%709| ¥455, 280| 
18 TeToM-IEIGD loo| 12o| 半 soo| 550, 000| 销 人 全 如 医 夫 | 


1 村 销售 金额 分 析 


一 一 和 全 亲 


eet 1 


A Tm LL 


14-34 ”创建 图 表 


@ 昌 创建 图 表 后 ,可 以 使 用 鼠标 调整 图 表 的 大 小 及 位 置 ,也 可 以 设置 图 表格 式 . 例如 ， 右 击 
选中 的 图 表 标 题 ， 在 弹出 的 快捷 菜单 中 选择 【字体 】 菜 单 命令 ,打开 【字体 】 对 话 框 ,在 【字体 】 
选项 卡 的 【中 文字 体 ] 下 拉 列 表 框 中 选择 “华文 新 魏 “， 在 【字体 样式 】 下 拉 列 表 框 中 选择 “加 粗 ”， 
在 【大 小 】 下 拉 列 表 框 中 选择 “20 ， 并 设置 字体 颜色 为 深 红 色 ， 如 图 14-35 所 示 。 


14-35 【字体 】 对 话 框 
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团 单 击 【确定 】 按 钮 ， 即 可 看 到 标题 字体 、 颜 色 和 大 小 已 经 改变 ， 如 图 14-36 所 示 。 

nl C 5 下 F H E | 

司 | gd4-1012TX 80 120| ¥ 4, 099| ¥ 327, 920| 

8 | gd4-1058TX 100 100| 六 3, 800| 于 380, 000| ”取消 隐藏 

9 | 果 Pro (RC700CH/A) 40 50| | 7, 686| ¥307, 440| Bn 

10 Air (KC968CH/A) 70 45 上 ER25| ¥7,398| ¥517,860| = 

FE Air (WC965CH/A) 60| 40 国 于 ¥9, 598| ¥575, 880| 计算 销售 多 类 

| 12 | 联想 |G470AH-ITH 120| 0 0| ¥3,799| ¥455, 380| 

13 | Y470N-IFI (H) 100| 120 革 EYY5.500| 芋 550, 000| _ 销 信人 金额 图 表 | 


上 国生 本 区 


一 一 销售 全 额 


a 
Thiokpad A207 
| 
| 


vn 
图 14-36 ”改变 标题 字体 、 颜 色 和 大 小 后 的 效果 
亨 加 除了 可 以 设置 字体 外 ， 还 可 以 为 标题 设置 填充 色 、 边 框 颜色 、 边 框 样式 ， 阴 影 等 效果 。 
例如 , 右 击 选择 的 图 表 标 题 , 在 弹出 的 快捷 菜单 中 选择 【设置 图 表 标题 格式 】 菜 单 命令 , 打开 【 设 
置 图 表 标 题 格式 】 对 话 框 ， 选 择 【 填 充 】 选 项 卡 ， 在 其 右 侧 列表 中 选中 【图 案 填 充 】 单 选 按钮 ， 
在 设置 前 景色 和 背景 色 后 ， 在 图 案 填 充 列表 框 中 选择 要 设置 的 图 案 样式 ， 如 图 14-37 所 示 。 


设置 图 表 标 题 格 式 


图 14-37 【设置 图 表 标 题 格式 】 对 话 杠 


亨 名 单 击 【 关 闭 】 按 钮 ， 即 可 为 图 表 标 题 设置 图 案 填 充 效果 ， 如 图 14-38 所 示 。 
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| E E [| 
g4-1012TX 80| 120| ¥4, 099| 

8 84-1058TX 100| 100| ¥3, 800| 

9 苹果 IPro (MC700CH/A) 40| 50| ¥7, 686| 
| ao Air (MC968CH/A) 70| 45B>225| ¥7, 398| 

11 Air (WC965CH/A) 60| 40| ¥9, 598| 门 
12 联想 |G470AH-ITH 120| 80| ¥3, 799| 

13 J47ON-IFI(H) | 100| 120A Y¥5.500l 

14 1T 一 一 一 一 一 

15 | 销售 仗 疾 分 析 | 

16 四 上 | 

17 四 

18 | 苹果 JP 区 -990.00 + 

19 A 时 z | 
20 a i ER 

3 

jv 占 | 

和 a 

24 惠 首 |c4 El Ba 导 

3 一 LEE Ei IE | 

< 4 | ， 

27 苹果 |Pi 联想 南 首 芋 果 联想 惠普 半 : 画 首 年 果 UI 
28 Ja 坦 2 朋 3 月 

« ee 了 = Gil 


图 14-38 图案 填 充 效 果 


到 此 就 完成 了 对 销售 金额 的 图 表 分 析 。 但 是 使 用 代码 会 涉及 很 多 的 格式 参数 ， 这 些 参数 
不 方便 记忆 ， 记 以 完全 使 用 程序 代码 添加 图 标 会 显得 麻烦 ， 而 且 还 容易 出 现 错误 。 这 里 ， 用 
户 可 以 使 用 录制 宏 的 方法 ， 将 插入 图 表 的 整个 操作 过 程 录制 下 来 ， 然 后 将 录制 的 代码 复制 到 
相应 的 子 过 程 中 ， 并 且 还 可 以 根据 实际 需要 对 代码 进行 相应 的 调整 或 更 改 。 这 样 既 免 去 了 向 
VBA 代码 窗口 中 输入 代码 的 麻烦 ， 又 可 以 避免 输入 代码 时 造成 的 错误 。 

使 用 录制 宏 的 方法 编辑 插入 图 表 代码 的 具体 操作 步骤 如 下 。 


@ 遇 选择 工作 表 中 功能 区 的 【视图 】 选 项 卡 ， 选 择 【 宏 】 选 项 组 中 的 【 宏 】> [录制 宏 】 菜 
单 命令 ,打开 【录制 新 宏 】 对 话 框 ， 单 击 【 确 定 】 按 钮 ， 开 始 录制 宏 ， 如 图 14-39 所 示 。 


14-39 【录制 新 宏 】 对 话 框 


@ 到 按 住 Ctrl 键 的 同时 ,依次 单 击 需要 用 图 表 表示 的 单元 格 , 作为 待 插入 图 表 的 数据 源 ， 这 
里 选择 的 数据 源 为 A2:C29 和 H2:H29， 如 图 14-40 所 示 。 
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PP) ey sis oe eh eed 2 E | 
1 
100| 200 
二 120| 100| 
150| 80| 
60| 120| ¥3, 849 耻 王 库存 充足 广 
和 80| 120| ¥4, 099| 
100| 1o0 ¥3, 800| 取消 隐 王 
40 50| ¥7, 686| 引 
70 45| ¥7, 398 计算 销 
60| 40| ¥9, 598| Be 
120| 80| ¥3, 799| 
100| 120| | 销售 全 新 图 开 
4 130| 100| ¥4, 799| 
130| 90| ¥3, 849| 
90 50| ¥ 4 099| 
了 80 55| ¥3, 800| 
50| 100| ¥7, 686| Ei 
9 80| 64| ¥7, 398 
0 80 ¥9, 598 
200| 165| ¥3, 799 
180| 126 ¥5, 500 
lol 
LAW Sheetl -Shest2 Sheet3 0 1 至 Gi 


图 14-40 选择 数据 源 


@ 旨 数据 源 选 择 完毕 后 , 选择 功能 区 【插入 】 选 项 卡 , 在 【图 表 】 下 拉 列 表 中 选择 【折线 图 】， 
显示 出 折线 图 类 型 ， 如 图 14-41 所 示 。 


Pe 


国 | 加 9"wrlv 新 法 Microsoft Excel 工作 要 xlsm - Microsoft Excel om 
| = EE EE 
回国 国 器 # sz 国人 多 回国 z. 
要 恪 | 图 片 men 四 于 A 切片 器 ”过 人 过 Ze RanFE 遇 
二 
要 由 揪 加 
EC] >3%E 0 和 
画图 凡 二 男 天 他 天 要 
Fr 
pa A | 
| | | 4 799| 
[dg A I 099) 
| 0 | 
昌 区 | smen [0 守备 销 和 全 时 
2 | 3 799| 
| 而 | spn。 上 500| | 
130| 央 可 信用 沪 作 849| 
90| 50| ¥4, 099| 
ao 55 于 3, 800 
50| 100| ¥7, 686| 
80| 64| ¥7, 398| 
60| 8ol ¥9, 598 
200| 165| ¥3, 799| 
180| 126| ¥5, 500| 
| 四 
ML HSheetl -Sheet2 Sheet3 Z 4 ry » 
= S 


14-41 ”折线 图 类 型 
@ 毕 从 中 单 击 需要 的 图 表 类 型 ， 可 在 工作 表 中 插入 由 所 选 数据 源 组 成 的 图 表 ， 如 图 14-42 所 示 。 
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3 Excel 2010 VBA BN 


a rn EP 
] 与 实战 

是 Cc | 了 | | ES: 
_8 | 24-1058TX 100| gr 委 是 外 a | 取消 | 
9 果 ProticznncHAa | aol scl E gael sn? 4 Ey 
10 | 
一 销售 全 [生生 
12 2 月 “ 节 想 | ysooooo 
13 沪 金 新 图 末 
14 ¥1,200,000 
15 惠普 | ¥1.000.000 一 
16 时 
sooooo | 
18 华 果 | 6ooooo 
19 ¥400,000 
20 em ¥200000 
21 |3 月 | 联想 BS 一 一 销售 全 其 EE 
22 中 Yo + 加币 耳 所 器 
2 一 国 国 四 图 国 国 图 国 目 图 国 
25 号 日 目 呈 力 由 加 旧 
26 | 名 门 目 | | 向 让 
27| | 学 果 | | 自问 I | 
2 | 联想 圳 答 于 果 联 想 联想 圳 管 于 困 

| 
2 一 | 的 8 | 一 -二 
WAVM Sheetl Sheet2 Sheet3 0 ds m + 
图 14-42 插入 图 表 


畴 选择 功能 区 
完成 安 的 录制 操作 。 


【视图 】 选 项 卡 ， 在 【 宏 】 选 项 组 中 选择 【 宏 】> 


@8@j 在 【 宏 】 选 项 组 中 选择 【 宏 】> 


列表 框 中 选择 录制 的 宏一 一 “ 宏 


【停止 录制 】 菜单 命令 


【查看 宏 】 菜 单 命令 ,打开 【 宏 】 对 话 框 在 【 宏 名 】 


] ， 如 图 14-43 所 示 。 


国 [Cai | 


了 EE xcel 工作 表 xlaw' 1 销售 额 图 表 .销售 上 加 表 


位 置 ()。 | 所 有 打开 的 工作 注 
说 明 
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图 1443 【 宏 】 对 话 框 
@ 到 单 击 【 编 辑 】 按 钮 ， 可 看 到 录制 的 宏 代码 ， 如 图 14-44 所 示 。 
[通用 ) 本 [Ei 到 
Sub 室 10 可 
， 宏 ! 宏 恒 


Activegindow. SmallSeroll Down:=-38 
Range ("A2:C29"). Select 

ActiveNindow. SmallScroll Down:=-42 

Range (“A2:C29, H2:H29”). Select 

Range ("H2”). Activate 

ActiveSheet. Shapes, AddChart. Select 

ActiveChart. ChartType = xlLinellarkers 

ActiveChart. SetSourceData Source:=Range (“Sheet1!$A$2:$C$29, Sheet1 1$H$2:$H$29" 


) 
End Sub 


图 1444 录制 的 宏 代码 


通过 以 上 录制 宏 的 操作 ， 不 仅 可 以 方便 地 得 到 插入 图 表 的 VBA 程序 代码 ， 还 避免 了 向 


VBA 窗口 中 输入 代码 的 麻烦 以 及 输入 错误 的 发 生 。 


14.2 
销售 明细 清单 分 析 


销售 明细 清单 主要 记录 了 商品 的 销售 记录 信息 ， 包 括 销售 时 间 、 产 品名 、 数 量 、 价 格 和 
折扣 等 内 容 。 统 计 销 售 清单 能 让 经 营 者 更 清晰 地 掌握 当前 的 销售 状况 ， 对 下 一 步 销售 策略 的 
调整 很 有 帮助 。 下 面 详细 介绍 统计 与 分 析 销 售 明 细 清 单 的 方法 。 


| 统计 销售 明细 清单 


商品 销售 过 程 中 会 产生 很 多 零碎 的 销售 明细 ， 根 据 销售 的 商品 不 同 产生 的 销售 清单 也 各 
有 差异 ， 但 是 大 多 数 销 售 明细 清单 的 数据 信息 都 比较 庞大 ， 使 用 常规 的 Excel 数据 处 理 功 能 
会 比较 麻烦 , 但 是 使 用 Excel VBA 可 以 在 很 短 的 时 间 内 完成 对 大 量 数 据 表格 的 格式 化 和 数据 


查询 等 操作 。 


下 面 以 如 图 14-45 所 示 的 笔记 本 销售 清单 为 例 ， 介 绍 使 用 Excel VBA 格式 化 销售 明细 清 


单 的 方法 。 


FIEREES 


工作 每 1 - Microsoft Fxcel 


巴 入 国志 公 却 。 RN 天 。 避风。 视 因 。 开发 I 具 。 所 


| 

1 

3 | 2012-1-10IG470AH-ITH 3| ¥3,799| 0.9 

和 | 2012-1-10lY470N-IFI (H) 4| ¥5, 500| 0.8| 

5 | 2012-1-10/ThinkPad E420 6| 工 由 799| 0. 95| 

6 | 2012-1-11|G471AH-ITH ?| YS,8t9| 0.85| 

了 | 2012-1-11lY471N-IFI (H) €| ¥5,499| 0.75| 

8 | 2012-1-11/ThinkPad Ed21 13| ¥4,600| 0.9| 

9 | 2012-1-12|G472AH-TTH 11| ¥3,799| 0.8 

10 | 2012-1-12|Y472N-IFI (H) 5| ¥5,500| 0.95| 

11 | 2012-1-12|ThinkPad E422 | ¥47%9| 0o.8 

12 | 2012-1-13|G47SAH-ITH 了 B49| 0.7 

13 | 2012-1-13|Y473N-IPI (H) S54 0.8: 

14 | 2012-1-13|rhinkPad E423 12| ¥4, 600| 07 

15 | 2012-1-14G4T4AH-ITH 引 半 3a799| 0.7 

16 | 2012-1-14|Y474N-IFI (H) 13| ¥5, 5o00| 0.9| 

17 | 2012-1-14/ThinkPad Ed424 €| ¥4,799| 0.8| 

18 | 2012-1-15|G475AH-ITH 了 | ¥3, a9 0. 95| 

19 | 2012-1-15/Y475N-IFI (H) S| ¥5, 499| 0. 85| 

20 | 2012-1-15|ThinkPad E425 14| ¥4,600| 0.75| J 
2 

22 
[4 sheetl Sieetz Sieet 77 一 Gl 
Wm | 号 | | 国 加 四 lx CO 


有 具体 的 操作 步骤 如 下 。 


14-45 ”商品 销售 明细 清单 表 


bby: 


Wh 


[ETRTEA 入 门 与 实战 


上 @ 简 打开 “笔记 本 销售 清单 ”工作 表 Sheet1, 选择 功能 区 【开发 工具 】 选 项 卡 ， 单 击 【代码 】 
选项 组 中 的 【Visual Basic】 按 钮 ， 打开 【Microsoft Visual Basic for Application】 主 窗口 ， 在 菜单 
栏 选 择 【 插 入 】> 【模块 】 菜 单 命令 ， 插 入 一 个 模块 ， 在 该 模块 的 【名 称 】 属性 列表 中 将 其 更 改 
为 “统计 金额 ”， 如 图 14-46 所 示 。 

@ 到 双击 进入 该 模块 代码 窗口 中 ， 在 菜单 栏 选 择 【 插 入 】> 【过 程 】 菜 单 命令 ,打开 【添加 
过 程 】 对 话 框 ， 在 【名 称 】 文 本 框 中 输入 “统计 金额 ”， 在 【类 型 】 选 项 组 中 选中 单 选 
按钮 ， 在 【范围 】 选 项 组 中 选中 【公共 的 】 单 选 按钮 ， 如 图 14-47 所 示 。 


添加 过 程 


名 称 旭 : 际 计 全 玖 


2 
人 子 程序 加 ) | 
个 表 数 们 


个 属性 中 


范围 
人 公共 的 四 ) 
广 私有 的 吕 ) 


厂 把 所 有 局 部 变量 声明 为 天 者 变 量 (A) 


14-46 ”插入 模块 并 更 改 其 名 称 图 14-47 【添加 过 程 】 对 话 框 
@ 旨 单 击 【确定 】 按 钮 ， 在 模块 中 创建 名 为 “统计 金额 ”公有 子 过 程 的 代码 框架 ， 如 图 14-48 


作 短 1 - [统计 全 六 代码) 
寿 六 俐 要 EE] 梳 图 W) 活 和 D 牛 0) 沸 [D) 云 5(&) 工具 DD 外 过 杠 (8) 县 DO 和 助 目 -~ 
HNCRET. eb @ 53.n1 


HH 会 向 
二 是 mhPrejeet (最 不 重复 


二 是 mhPrejeetl (2012 年 


14.48 “创建 “统计 金额 ” 子 过 程 代码 框架 
较 在 该 子 过 程 中 输入 以 下 程序 代码 ， 如 图 14-49 所 示 。 


Public Sub 统计 金额 () 
Dim i As Integer "定义 用 于 循环 的 整 型 变量 
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Dim count As Integer "定义 用 于 记录 工作 表 的 记录 数 的 整 型 变量 
count = Sheets ("Sheet1l") . [A1] .CurrentRegion .Rows .count 
"把 工作 表 的 记录 数 赋 给 整 型 变量 count 


For i = 3 To count 
Colls(i, 6) = Cells(i, 4) * Celle(ir 3) * (1 = Cells(ir 5)) 
' 折 扣 额 = 单价 * 数 量 * (1- 折 扣 率 ) 
Cells(i, 7) = Cells(i, 4) * Cells(i, 3) * Cells(i, 5) 
' 实 际 金额 = 单价 * 数 量 * 折 扣 率 
Next i 
End Sub 


而 有 7 


网 
加 


Publie sub 统计 金额 0 | 
Dim i As Integer 
Dim count As Integ: 
count = Sheets(": Sel” ). [A1] orgie ‘on. Rows. co 

el 作 各 的 区 二 加 拓 开 六 量 。oont 


CellsG, 6)= 三 east, 4 Cells(i, 3) * (1 - Cells(i, 5)) 
扣 0 价 + 妆 量 +( 1- 折 扣 率 ) 


CellsG, 1) = CalsG, 4),# CellsG, 3) # CellsG, 5) 
实际 全 部 -单价 * 煞 量 * 折 扣 征 
Jext i 
End Sub 
= | 


图 14-49 输入 统计 金额 的 程序 代码 
【提示 】 这 段 代码 首先 使 用 整 型 变量 count 记录 工作 表 Sheetl 记录 数 ， 然 后 在 For 循环 语句 中 分 别 计算 
“折扣 额 ”和 “实际 金额 ”。 


@ 国 代码 输入 完毕 后 ,在 菜单 栏 选 择 【 运 行 】> 【运行 子 过 程 /用 户 窗 体 】 菜 单 命令 ,运行 该 
子 过 程 ， rapt de me 如 图 14-50 所 示 。 


A B C D E 了 G H 

1 

2 。 了 时间 | 产品 型 号 。 | 数量 | 单价 | 折扣 率 | 折扣 额 | 实际 侈 客 
3 | 2012-1-10|G470AH-ITH 3| ¥3,799| 0.9| 10257. 3| 
生 2012-1-10|Y470N-IFI(H) 4| ¥5,500| 0.8| 4400| 17600| 
5 2012-1-10|ThinkPad Ed420 6| ¥4,799| 0.95| 1439.7| 27354. 3| 
6 | 2012-1-11|G471AH-ITH ?了 | ¥3,849| 0. 85| 4041. 45| 22901. 55| 
中 | 2012-1-11|Y471N-IFI(H) 8| ¥5,499| 0.75| 10998| 32994| 
8 2012-1-11|ThinkPad E421 13| ¥4,600| 0.9| 5980| 53820| 
9 2012-1-12|Gd472AH-ITH 11| ¥3,799| 0.8| 8357.8| 33431.2| 
10 | 2012-1-12|Y472N-IFI(H) 5| ¥5,500) 0. 95| 1375| 26125| 
11 | 2012-1-12|ThinkPad E422 6| ¥4,799| 0.85| 4319.1| 24474.9| 
12 | 2012-1-13|G473AH-ITH 了 | ¥3,849| 0.75| 6735. 75| 20207. 25| 
13 |Y473N-IFI(H, 8| ¥5,499| 0.85| 6598.8| 37393.2| 
14 IThinkPad E423 12| ¥4,600| 0.75| 13800| 41400| 
15 2012-1-14|cd474AH-ITH 9| ¥3,799| 0.75| 8547. 75| 25643. 25| 
16 | 2012-1-14|Y474N-IFI(H) 13| ¥5,500| 0.9| 7150| 64350| 
17 | 2012-1-14|ThinkPad E424 6| ¥4,799| 0.8| 5758.8| 23035.2| 
18 | 2012-1-15|G475AH-ITH 了 | ¥3,849| 0.95| 1347.15|25595. 85| 
19 | 2012-1-15|Y475N-IFI(H) 8| ¥5,499| 0.85| 6598.8| 37393.2| 
20 | 2012-1-15|ThinkPad E425 14| ¥4,600| 0.75| 16100| 48300| 
21 

14-50 计算 结果 
@gj 在 图 14-50 中 可 以 看 到 ， 计 算出 的 “折扣 额 ” 和 “实际 金额 ”的 输出 结果 都 不 是 货币 格 


式 ， 所 以 还 需要 将 其 转化 为 货币 格式 ， 则 需要 在 上 述 过程 中 添加 以 下 代码 ， 如 图 14-51 所 示 。 


Range (Cells (i，6)，Cells (i，7)) .Select “选择 单元 格 区 域 
Selection.NumberFormatLocal = " 竺 #,##0 .00; 竺 -#,##0.00" :设置 货币 格式 ， 小 数 点 后 
"保留 两 位 
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[ 硬 击 | | 苇 于 全 天 .| 
Publie Sub 统计 金额 0 分 
Wn i hs Tee ,定义 的 整 型 变 最 
Dim count As Inte ea 
count ESheats tSheet1®). [AD Co 

录 数 赋 给 整 型 变量 =ount 
Yor i = 3 To 
Cells 人 5)) 


j= = basG, 19 CellsGi, 3) *# (1 - CellsGi, 

“折扣 额 = 单价 数量 *( 1- 折 扣 率 》 

4) # Cells(i, 3) # Cells(i, 5) 
,实际 全 证 -单价 * 数 量 * 折 操守 


Cellsfi, 


Cellsfi, 


图 14-51 


添加 转化 货币 格式 的 代码 


@ 便 添加 完毕 后 ， 在 菜单 栏 选择 【运行 】> 【运行 子 过 程 /用 户 窗 体 】 菜 单 命令 ， 
程 ， xs 如 图 14-52 所 示 . 


1 二 = 

: ce 有 VI | EC- | 

3 | 2012-1-10jc47OAH-ITH 3| .9| _¥1,139.70| ¥10,257.30 
4 | 2012-1-10|7470N-IFI (H) 4| ¥5, 500| .8| 于 4 400. 00| ¥17, 600.00 
5 | 2012-1-10|ThinkPad E420 6| ¥4,799| 0.95| ¥1,439.70| ¥27,354.30 
6 | 2012-1-11|c471AH-ITH ?| ¥3,849| 0.85| ¥4,041.45| ¥22,901.59 
7 | 2012-1-11|7471N-IFI (H) 8| ¥5,499| 0.75| ¥10,998.00| ¥32,994.00 
8 | 2012-1-11|ThinkPad E421 13| ¥4,600 0.9| ¥5,980.00| ¥53,820.00 
9 | 2012-1-12|c472AH-ITH 11 0.8| ¥8,357.80| ¥33,431.20 
10 | 2012-1-12|7Y4728-IFI (H 5| 0.95| ¥1, 375.00| 芋 26,125.001 
11 | 2012-1-12|ThinkPad E422 6| ¥4,799| 0.85| ¥4,319.10| ¥24,474.90 
12 | 2012-1-13|c473AH-ITH ?| ¥3,849| 0.75| ¥6,735.75| ¥20,207.25 
13 | 2012-1-13|7Y473N-IFI (H) 8| ¥5,499| 0.85| ¥6,598.80| ¥37,393.20 
14 | 2012-1-13|ThinkPad E423 12| ¥4,600| 0.75| ¥13,800.00| ¥41,400.00 
15 | 2012-1-14|C474AH-ITH 9| ¥3,799| 0.75| ¥8,547.75| ¥25,643.29 
16 | 2012-1-14|7474N-IFI (H) 13 0.9| ¥7,150.00| 于 64,350.00 
17 | 2012-1-14|ThinkPad E424 | 0.8| ¥5,758.80| ¥23,035.20 
18 | 2012-1-15|c475AH-ITH | ¥3,849| 0.95| ¥1,347.15| ¥25,595.85 
19 | 2012-1-15|7475N-IFI (H) 8| ¥5,499| 0.85) 

20 | 2012-1-15|ThinkPad R425 14| ¥4,600| 0.75| 


图 14-52 将 计算 结果 转化 为 货币 格式 


i 分 析 销 售 明细 清单 


获取 销售 明细 清单 后 ， 需 要 对 销售 明细 清单 进行 分 析 处 理 ， 获 取 对 商品 销售 经 营 有 价值 
的 信息 。 对 商品 销售 情况 进行 分 析 时 ， 可 以 通过 设置 “自动 筛选 ”功能 来 实现 ， 具 体操 作 方 
法 如 下 。 


1. 统计 G470AH-ITH 笔记 本 的 销售 总 额 
统计 G470AH-ITH 笔记 本 的 销售 总 额 的 具体 操作 步骤 如 下 。 


Lo 名 打开 “笔记 本 销售 清单 ”2 


[ 作 表 ， 选 择 功能 区 【开发 ] 


[ 具 】 


的 【插入 】 下 拉 列 表 中 选择 【命令 按钮 】 按 钮 妇 (ActiveX 控件 ) , 


当 鼠 标 指针 变 为 “+” 状 时 ， 按 住 鼠 标 左 键 不 放 并 拖 动 至 适当 大 小 后 释放 鼠标 左 键 ， 插 入 一 


令 按 钮 ， 如 


图 14-53 所 示 。 
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选项 卡 ， 在 【控件 】 选 项 组 
然后 在 工作 表 的 适当 位 置 处 ， 


个 全 
个 命 


ConnandButtonl ~ 全 天 | =ENBED(’Forns. ConnandButtor 


1 


2 9 一 一 co 一 一 1 
3 |C470AH-ITH 3| ¥3,799| 0.9| ¥1,139.70| ¥10,257.30| HConnandButtonl 

4 IY¥470N-IFI(H) 4| ¥5,500| 0.8| ¥4,400.00| ¥17,600.00| OO———o—™ 
5 IThinkPad E420 | 6| ¥4,799| 0.95| ¥1,439.70| ¥27,354.30| 

6 |G471AH-ITH ?| ¥3,849| 0.85| ¥4,041.45| ¥22,901.55| 

TlY471N-IFI (H) 8| ¥5,499| 0.75| ¥10,998.00| ¥32,994.00 

8 |ThinkPad E421 | 13| ¥4,600| 0.9| ¥5,980.00| ¥53,820.00 

9 |G472AH-ITH 11| ¥3,799| 0.8| ¥8,357.80| ¥33,431.20 

10 |Y472N-IFI (H) 5| ¥5,500| 0.95| ¥1,375.00| ¥26,125.00 

11 ThinkPad E422 | 6| ¥4,799| 0.85| ¥4,319.10| ¥24, 474. 90 a 
12 |G473AH-ITH 了 | ¥3,849| 0.75| ¥6,735.75| ¥20,207.25| 

13 IY473N-IFI (H) 8| ¥5,499| 0.85| ¥6,598.80| ¥37,393.20 

14 ThinkPad E423 | 12| ¥4,600| 0.75| ¥13,800.00| ¥41,400.00 

15 G474AH-ITH 9| ¥3,799| 0.75| ¥8,547.75| ¥25,643.25| 

16 |Y474N-IFI(H) | 13| ¥5,500| 0.9| ¥",150.00| ¥64,350.00 

17 ThinkPad E424 | 6| ¥4,799| 0.8| ¥5,758.80| ¥23,035.20 

18 IC475AH-ITH ?| ¥3,849| 0.95| ¥1,347.15| ¥25, 595.85 

19 IY475N-IFI (H) 8| ¥5,499| 0.85| ¥6,598.80| ¥37,393.20 

20 |ThinkPad E425| 14| ¥4,600| 0.75| ¥16,100.00| ¥48, 300.00| 


图 14-53 插入 命令 按钮 


史 到 右 击 该 按钮 ， 在 弹出 的 快捷 菜单 中 选择 【属性 】 菜 单 命令 , 打开 【属性 】 窗 
和 Caption 文本 框 中 均 输 入 “自动 筛选 ， 如 图 14-54 所 示 。 


自动 簿 选 ConmandButton 


PicturePositi 7 ~ fnPictur 
Placement 2 
IPrintObject True 


14-54 ”更 改 命令 按钮 属性 值 


@ 旨 属性 设置 完毕 后 ， 双 击 该 按钮 ， 打开 VBA 代码 窗口 ,在 其 中 输入 以 下 实现 自动 筛选 功 


能 的 程序 代码 ， 如 图 14-55 所 示 。 
Private Sub 自动 筛选 click () 


Range ("A2:G2") .Select "选择 设置 自动 筛选 的 数据 区 域 
Selection.AutoFilter "实现 自动 筛选 功能 
End Sub 
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Private Sub 自动 第 选 ClickO 到 
ange (842:62 司 .Select “ 选 拓 设置 目 动 第 选 的 数据 区 域 
Selection AutoFilter “实现 目 动 第 先 功 能 
End Sub 
了 
三 4 


图 14-55 ”输入 实现 自动 筛选 功能 的 代码 
@ 细 代码 输入 完毕 后 , 关闭 代码 窗口 返回 工作 表 中 , 单 击 功能 区 【开发 工具 ]】 选项 卡 中 的 【 设 
计 模 式 】 按 钮 甸 ,退出 该 按钮 的 编辑 状态 ， 此 时 单 击 【 自 动 筛选 】 按 钮 可 运行 上 述 代码 ， 实 现 自 
动 筛选 功能 ， 如 图 14-56 所 示 。 


= 
2 
3 C470AB-ITH ). .70| ¥10, 257. 
生 Y470N-IFICH) 有 ¥17, 600. 
5 ThinkPad E420 . .70| ¥ 27, 354. 
6 G471AH-ITH ® . .45| ¥22, 901. 
7 IY471N-IFI (H) .00| ¥ 32, 994. 
8 ThinkPad E421 ). 
9 Ga72AH-ITH 
10 12|7472N-IFI (H) 
11 ThinkPad E422 
12 13|G473AH-ITB 
13 13|7473N-IFI (H) 
14 13|ThinkPad E423 ). ¥ 41, 400. 
15 14|G474AH-ITH .75| ¥25, 643. 
16 14|7474N-IFI (H) 本 .00| ¥ 64, 350. 
17 14|ThinkPad E424 本 .80| ¥ 23, 035. 
18 15|G475AH-ITH . .15| ¥25, 595. 
19 15|7475N-IFI (H) 本 .80| ¥ 37, 393. 


20 | 2012-1-15|ThinkPad E425 .00| ¥48, 300. 
21 

22 

28 

24 
MH 4H Sheetl “Sheet2 Sheet3 re 由 Bil 


图 14-56 “自动 筛选 结果 


@ 副 在 工作 表 的 单元 格 H2 中 输入 要 统计 的 字段 名 称 , 如 “G470AH 销售 总 额 ”， 并 在 上 述 过 
程 代码 后 面 添加 下 面 的 程序 代码 ， 如 图 14-57 所 示 。 


Public Sub G470AH 销售 总 额 () 
Dim i As Integer ' 定 义 用 于 循环 的 整 型 变量 
Dim count As Integer ' 定 义 用 于 保存 工作 表 记 录 数 的 整 型 变量 
Dim temp As Variant “，' 定 义 用 于 存放 总 金额 的 变 体型 变量 
Sheets ("Sheet1") .Select 
Selection.AutoFilter Field:=2, Criterial:="G470AH" 
"在 第 2 列 以 “G470RAH” 为 条 件 进 行 筛选 
count = Sheets ("Sheet1l1") . [A1] .CurrentRegion.Rows .count 
"把 工作 表 的 记录 数 赋 给 count 
temp = 0 ' 为 其 赋 初 值 
For i = 3 To count 
Rows (i) .Select “' 选 择 第 i 行 
If Selection.EntireRow.Hidden = False Then 
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' 判 断 第 i 行 是 否 隐藏 ， 如 果 不 隐藏 则 进行 下 列 计算 
temp = temp + Cells (i，7) ' 计 算 总 和 
End If 
Next i 
Cells (3 8) = temp ' 将 累加 的 总 金额 赋值 给 单元 格 H3 
Cells (3，8) .Select “' 选 择 单元 格 H3 
With Selection 
.NumberFormatLocal = " 竺 #,##0.00; 至 -#,##0.00" 设置 为 【货币 】 格 式 
.HorizontalAlignment = xlCenter ' 设 置 居中 对 齐 
.VerticalAlignment = xlCenter 
End With 
End Sub 


| 通用 ) 了 |] |6470AH 销 售 总 额 可 


Frivate Sub A iceg, 
Range ("A2;G2"). Select “选择 设置 自动 第 选 的 数据 区 域 
Salestion Antogilter “实现 目 动 第 选 功能 

|_End Su 


= 后 4 中 
14-57 输入 计算 G470AH 的 销售 总 额 代码 
有 @ 羡 代码 添加 完毕 后 ,在 菜单 栏 选 择 【 运 行 】> 【运行 子 过 程 /用 户 窗 体 】 菜 单 命令 ,运行 该 
子 过 程 ， 计 算出 G470AH 笔记 本 的 销售 总 额 ， 并 将 结果 显示 在 H3 单元 格 中 ， 如 图 14-58 所 示 。 


2012-1-10|c470 .9| ¥1 139. 

2012-1-11|6470AH | 7| ¥3,849| 0.85| ¥4,041.45| ¥22, 901.55 自动 节选 

9 | 2012-1-12|c47OAH | 11| ¥3,799| 0.8| ¥8,357.80| ¥33,431.20 

G2 2012-1-13|c47ohAH | ?| ¥3,849| 0.75| ¥6,735.75| ¥20,207.25| 
9 
7 


| 15 | 2012-1-14|G470AH ¥3,799| 0.75| ¥8,547.75| ¥25, 643.25| 
[18 | 2012-1-15|c470AH ¥3,849| 0.95| ¥1,347.15| ¥25, 595. 85 


29 
[RAW Sheetl .Sheet Sheotd 7 4 ] a 


图 14-58 计算 出 G470AH 的 销售 总 额 
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【提示 】 在 统计 G470AH 笔记 本 实际 销售 总 额 时 , 会 将 其 他 产品 行 隐藏 , 如 果 H3 行 不 是 G470AH 笔记 本 ， 
则 该 行 隐藏 ， 获 得 的 销售 总 额 也 将 无 法 看 到 ， 所 以 输出 结果 的 单元 格 最 好 在 要 统计 的 对 象 所 在 的 行 。 


用 户 也 可 以 按照 同样 的 方法 来 


统计 其 他 字段 的 销售 总 额 或 总 销售 数量 ， 只 需 在 语句 


“Selection.AutoFilter Field:=2, Criterial:=" G470AH"” 中 转换 相应 的 列 号 及 其 筛选 条 件 即 可 。 
2. 统计 折扣 额 不 低 于 5000 的 记录 
在 商品 销售 清单 数据 表 中 ， 自 定义 筛选 “折扣 额 ” 大 于 5000 的 商品 记录 ， 有 具体 操作 步骤 


如 下 。 
2 [一 
) 单 击 如 图 14-59 所 示 的 “折扣 额 ” 字 段 所 在 单元 格 右 侧 的 下 三 角 按钮 [zi， 在 弹出 的 下 拉 
菜单 中 选择 【数字 筛选 | > 【 自 定义 筛选 】 菜单 命令 . 
下 B [Ce D 让 H 

上 HL 二 
| 2 ~ | jc370AH 销 售 总 额 

3 ¥10, 257. 30| ¥138, 036. 40 

4 ¥17, 600. 00| ¥138, 036. 40 

5 ¥ 27, 354. 30 

6 才 攻 D * [22, 901. 55 到 

¥ 32, 994. 00 Ci 

8 ¥ 53, 820. 00 

9 ¥ 33, 431. 20 

10 地 v 每 E) 

12 | 2012-1-13| 万 FN 

13 | 2012-1-13 加 连 姥 ) a 

14 |2012-1-13| 国 时 3 

15 | 2012-1-14| Ml, 

16 [2012-1-14 人 

17 | 2012-1-14 园 时 4041 .45 

18 回 时 4319 10 

19 回 里 4 400.00 

20 | 2012-1-15|ThinkP: Eh 8 

21 回 蛙 6,596.680 

22 网 时 8.735.75 

23 - 

24 [Cus ] [ws 

25 

MW AVM| Sheetl /Sheeti Sheet 本 mC TT a 


图 14-59 选择 自 定义 选项 
@ 到 打开 【 自 定义 自动 筛选 方式 】 对 话 框 ， 在 【折扣 额 】 组 合 框 中 的 第 1 个 下 拉 列 表 中 选择 


“大 于 或 等 于 "， 在 第 2 个 下 拉 列 表 中 


自 定义 自动 筛选 方式 


输入 “5000 ， 如 图 14-60 所 示 。 


用 * 代表 任意 多 个 : 


14-60 


【 自 定义 自动 筛选 方式 】 对 话 框 


@ 旨 单 击 【 确 定 】 按 钮 ， 可 看 到 自 定义 筛选 “折扣 额 ” 的 结果 ， 如 图 14-61 所 示 。 
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A bimini mi tit | 下 9 

1 

2 | 时 间 [- -| - > | “|G+470a8 轴 售 总 烽 
7 |2012-1-11|7470N-!| 8| ¥5,499| 。 0.75| ¥10,998.00| ¥32,994.00 自动 节选 
8 |2012-1-11|rhinkPa| 13| ¥4,600| 0.9| 王 5, 980.00| ¥53,820.00 

9 | 2012-1-12|c47OhAH | 11| ¥3,799| 0.8| ¥8,357.80| ¥33,431.20 

12 | 2012-1-13|ca7ohH | 。 了 | ¥3,849| 0.75| ¥6,735.75| ¥20,207.25 

13 12012-1-13|Y47ON-I 8| ¥5,499| 0.85| ¥6,598.80| ¥37,393.20 

14 |2012-1-13|ThinkPa| 12| ¥4,600| 0.75| ¥13,800.00| ¥41,400.00| 

15 |2012-1-14|c470AH | 9| ¥3,799| 0.75| ¥8,547.75| ¥25,643.25 

16 | 2012-1-14|?47ON-I 13| ¥5,500| 0.9| ¥7,150.00| ¥64,350.00 

17 |2012-1-14|ThinkPal 6| ¥4,799| 0.8| ¥5,758.80| ¥23,035.20 

19 |2012-1-15|7470N-!| 8| ¥5,499| 0.85| ¥6,598.80| ¥37,393.20 

20 | 2012-1-15|rhinkPal 14| ¥4,600| 0.75| ¥16,100.00| ¥48,300.00l 

21 

22 

图 14-61 自 定义 筛选 结果 


在 实际 应 用 中 , 如 果 有 很 多 数据 表 需 要 进行 此 类 自 定义 自动 筛选 操作 , 则 可 以 使 用 Excel 


VBA 来 提高 工作 效率 和 准确 度 。 


使 用 Excel VBA 实现 上 述 自 定义 自 动 筛选 功 能 的 方法 是 , 在 模块 中 插入 一 个 公有 子 过 程 ， 
然后 在 该 子 过 程 中 添加 实现 自动 筛选 功能 的 语句 ， 有 具体 程序 代码 如 下 ， 如 图 14-62 所 示 。 


Public Sub 条 件 筛选 


0 


Selection.AutoFilter 


Criteria2:="<=50000" 


"在 第 7 列 以 “大 于 或 等 于 35000 且 小 于 或 等 于 50000” 为 条 件 进行 筛选 


End Sub 


在 这 段 代 码 中 ，field:=7 用 于 设置 对 第 7 列 (“ 实 际 金额 ”所 在 列 ) 进行 自动 筛选 操作 ; 


field:=7, 


Criterial:=">=35000", 


图 14-62 ”输入 自动 筛选 功能 代码 


Operator:=xlAnd, 


Criterial:=“>=35000” 用 于 设置 第 1 个 筛选 条 件 是 “>=35000”; Operator:=xlAnd 用 于 设置 多 
个 筛选 条 件 之 间 是 “逻辑 与 ”关系 ; Criteria2:=“<=50000” 用 于 设置 第 2 个 筛选 条 件 是 


“<=50000”。 


3. 统计 “销售 数量 ”不 低 于 8 且 “ 折 扣 率 ”不 低 于 0.85 的 商品 记录 


经 常会 遇 到 特定 信息 的 筛选 , 例如 要 统计 “销售 数量 ”不 低 于 8 且 “ 折 扣 率 ”不 低 于 0.85 
的 商品 记录 。 实 现 该 统计 需求 的 方法 主要 有 两 种 ， 一 种 是 利用 Excel VBA 代码 实现 ， 另 一 种 
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SS [SEOTRZEA 入 门 与 实战 
则 是 利用 工作 表 中 的 业 单 命令 实现 。 


1) 利用 VBA 实现 
利用 Excel VBA 代码 实现 高 级 筛选 功能 的 具体 操作 步骤 如 下 。 


@ 遇 在 “笔记 本 销售 清单 ”了 
如 图 14-63 所 示 。 


12 .2012-1-13|G470AH ¥6,735.75) 
13 | 2012-1-13|Y470N-1| ¥6, 598. 80| 
] 2012-1-13|ThinkP: ¥13, 800. 00| 


[ 作 表 中 空白 单元 格 建立 用 于 存放 高 级 筛选 条 件 的 单元 格 


F G 
¥10, 998. 00| ¥ 32, 994. 00| 


¥5, 980. 00| ¥ 53, 820. 00 


a B 
2012-1-11|Y470N-1| 
2012-1-11|ThinkPal 
2012-1-12|G470AH 


¥8, 357. 80| ¥ 33,431.20| 


2012-1-12|Y470N-I 


¥1, 375. 00 


2012-1-12|ThinkPal 


¥4, 319.10 


2012-1-14|G470AH 


¥8, 547. 75| ¥25, 643.25 


16 | 2012-1-14|Y470N-1| ¥7,150.00| ¥64,350.00) 
17 2012-1-14|ThinkP: ¥5,758. 80| ¥23,035.20, 
18 2012-1-15|G470AH ¥1,347.15| ¥25, 595. 85| 
19 | 2012-1-15]Y470N-1| ¥6, 598. 80| ¥ 37, 393. 20, 
20 | 2012-1-15|ThinkPal ¥16, 100. 00| ¥48, 300.00| 


内 


14-63 ”建立 条 件 区 域 效果 


@ 浊 选择 工作 表 功 能 区 的 【开发 工具 】 选 项 卡 ， 单 击 【代码 】 选 项 组 中 的 Visual Basic 按钮 ， 
打开 Microsoft Visual Basic for Application 主 窗口 ， 在 菜单 栏 选择 【插入 】> 【模块 】 菜 单 命令 ， 
插入 一 个 模块 ， 在 该 模块 的 【名 称 】 属性 列表 中 将 其 名 称 更 改 为 “高 级 筛选 。 然 后 双击 该 模块 ， 
在 菜单 栏 选择 【插入 】》>【 子 过 程 】 菜 单 命令 ,打开 【添加 过 程 】 对 话 框 ,在 【名 称 】 文 本 框 中 
输入 “高 级 筛选 ， 并 选中 【 子 程序 】 和 【公共 的 】 单 选 按钮 ， 如 图 14-64 所 示 。 

司 


-8 a 1 柯 


| 
图 14-64 【添加 过 程 】 对 话 框 
@ 单 击 【 和 确定 】 按 钮 ， 创 建 名 为 “高 级 筛选 ”的 公有 子 过 程 ， 并 输入 以 下 程序 代码 ， 如 图 
14-65 所 示 。 
Public Sub 高 级 筛选 () 


Range ("A2:G20") .AdvancedFilter _ ' 设 置 高 级 筛选 的 数据 源 区 域 为 A2 :G20 
Action:=xlFilterInPlace, CriteriaRange:=Range ("C23:D24"), Unique:=False 


290 


End Sub 


第 14 章 用 VBA 实现 数据 分 析 


= 


图 14-65 ”输入 高 级 筛选 代码 程序 


【提示 】 其 中 Action:=xlFilterInPlace 用 于 将 参数 Action 的 类 型 值 设置 为 xlFilterInPlace。Unique:=False 
用 于 设置 筛选 结果 的 唯一 性 ， 如 果 赋 值 为 True， 则 将 重复 出 现 的 记录 仅 保留 一 条 ; 如 果 赋 值 为 False， 
则 将 筛选 出 所 有 符合 条 件 的 记录 。 该 参数 的 默认 值 为 False。 


较 关闭 代码 窗口 返回 


[ 作 表 , 为 该 过 程 设置 执行 按钮 . 选择 功能 


区 【开发 了 


[ 具 ] 选项 卡 ， 


在 【控件 】 选 项 组 中 的 【插入 】 下 拉 列 表 中 选择 【按钮 】 按 钮 起 ( 窗 体 控件 ) ， 然 后 在 工作 表 的 
适当 位 置 ， 当 鼠标 指针 变 为 “+” 状 时 ， 按 住 鼠 标 左 键 不 放 并 拖 动 至 适当 大 小 后 释放 鼠标 左 键 ， 


系统 则 弹出 【指定 宏 】 


国 日 


对 话 框 ， 在 【 宏 名 】 列 表 中 选择 “ 


2 SE 天 好 


后 区 
自动 苦 选 


Cas Cas ls 


| ¥4,600| 


zol 
0.75| ¥18, 100.00| ¥45.,300.00| 


Ta 


| 


El- Ey 


【指定 宏 】 对 话 框 


高 级 筛选 ”选项 ， 如 图 14-66 所 示 。 
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旧名 单 击 【确定 】 按钮, 完成 宏 的 指定 操作 . 右 击 插入 的 按钮 , 在 弹出 的 快捷 菜单 中 选择 【 编 
辑 文字 】 菜 单 命 令 , 将 按钮 名 称 更 改 为 “高 级 筛选 “， 然 后 单 击 工作 表 中 的 任意 单元 格 , 退出 该 按 
钮 的 编辑 状态 ， 如 图 14-67 所 示 。 


0- ~ Microsoft Excel cw 
| = Ec 
2 了 加 奥 套 jz 国 |; 


vuelBose 去 国 jn com i 页 本 和 | 
全 - 卓志 人 


人 EE ES XML C3 
0 "= G 
"| a 3 3 La 理 3 
1 
-| mr = = | sq7oaAsfh 千 总 中 
引 ¥3,799| 0.9| ¥1,139.70| ¥10,257.30| 各 动 奈 授 
和 4 ¥5,500| 0.8| ¥4,400.00| 17,500.0| 一， 
| eT99] 0.95| 茸 1.439.T0| ¥27, 354 30 
6 | "| ¥3,849] 0.85| 郑 和 041.45| ¥22 301.55 
了 | 2012-1-11|zt70q-1 el Ys5,499| 0.75| 主 10, 998.00| ¥32, 994 00| 
| a [20tz-1-11|rhtnkPa 13| Ye,600| 0.9| Yr,980.00| 节 53, 820.00| “高 顷 状 先 
| 2012-1-12|ctyohd | 11| ¥3,"99] 0.8| ¥s,35".80| ¥33,431.20| 
0 | 2012-1-12|rt70q- 革 5| ¥s5,500| 6.95| ¥1,375.00| ¥26,125. 
| -1 中 荆 s799| 0.85| Yd,319.10 王 2t 47t 30| 
[21 2012-1-13|ctyphAa | ?| ¥3,849] 0.75| ¥6,735.75| 兰 20, 207. 25| 
13 | 2012-1-13|t70q- 了 8| ¥s5,499| 0.85| 艺 6,598.80| ¥37, 393.20| 
| -13|ThlnkPa 12| Ys, 600| 0.75| 0.00| ¥ 41, 400. 00| 
15 |2012-1-14|c470Ad | 9| ¥3,"99] 0.75| 这 8.567.75| ¥25, 643.25| 
16 | 2012-1-14[?t709- 了 13| ¥5,500| 0.9| ¥7,150.00| ¥6t, 350.00| 
37 ‘2012-1-14ThlnuPa 6| Y¥4,799 0.8| Y¥5,758,80| ¥23,035,20| 
"| 3 at9] 0.95| El 3567.15| ¥25, 595. so 
19 | 2012-1-16| | ¥5,499] 0.85| ¥e,598.80| ¥37, 393.20| 
20 2012-1-15| 14| ¥é,600| 0.75| ¥16,100,00| ¥48,300,00| 
| 
[22 
”国王 
| 
25 ” 
[| sooo: hooth Shanty * rn » 


0 
i 
司 


图 14-67 ”更改 按钮 名 称 
@@j 单 击 【 高 级 筛选 】 按 钮 ， 执 行 指定 子 过 程 ， 进 行 高 级 筛选 操作 ， 如 图 14-68 所 示 。 


国 | 加 9 竺 忆 丰 本 入 明 妇 主 单 xlsm - Microsoft Excel om 


23 少 避 | 旬 这 3 


图 ego coM i 和 A、 ii 呈 到 代 瑟 
有 


目 执行 车 生生 
人 i EE XM [3 
17 ”外 大 | 日 
1 | 3 3 下 
[G470a8 轧 入 新 
15| ¥4,600| Dp.3| Y¥5,980.00| Y¥55,820.00| “而 级 节选 二 
[24708-] 8| 让 5,499| 0.85| ¥6,598.80| ¥3",393.20| 


laarop-1| 1s| Ee, 500| — 5.9|_¥", 150.00] ¥64, 350.00) 
EERE 6, 598, 80| 37, 393, 20| 


WH] Sheetd Sport Set GE Ta[ J sl 


14-68 高 级 筛选 结果 
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2) 利用 菜单 命令 实现 高 级 筛选 功能 
利用 菜单 命令 实现 高 级 筛选 功能 的 具体 操作 步骤 如 下 。 


@ 曲 在 设置 完 用 于 存放 高 级 筛选 条 件 的 单元 格 区 域 后 , 选择 功能 


序 和 筛选 】 选 项 组 中 的 【高 级 】 按 钮 ， 打 开 【 高 级 筛选 】 对 话 框 ， 如 图 14-69 所 示 。 


高 级 藉 选 

方式 
全 在 原 有 区 域 显示 第 选 结果 字 ) 
〇 将 第 选 结果 复制 到 其 地 位 置 Q) 


@ 到 在 该 对 话 框 中 的 【方式 】 选项 区 中 选择 【在 原 有 区 域 显示 筛选 结果 ]】 单 选 按钮 , 单 击 【 列 


第 14 章 用 VBA 实现 数据 分 析 


区 【数据 ] 选项 卡 , 单 击 【 排 


图 14-69 【高 级 筛选 】 对 话 杠 


表 区 域 ] 文本 框 右 侧 的 折 基 按 包 国 ]. 然后 在 工作 表 中 选择 A2:G20 单元 格 区 域 , 如 图 14-70 所 示 , 
[ | 
2 G470A 销 售 总 烽 
3 12012-1-10|c47OAH ¥1, 139. 70| ¥10, 257. 30 ¥138, 036.40 
4 12012-1-10|7470N-1| ¥4, 400. 00| ¥17, 600. 00) 
5 12012-1-10|ThinkP: 
6 12012-1-11|G470AH 
12012-1-11|7470N-1| 
8 2012-1-11|ThinkP: of 5 980.00T F5320-00 
9 2012-1-12|c470AH 11 .8| Ye,357.80| ¥s3,431.20 | 
10 '2012-1-12|7470N-1| 5| ¥s5,500| 0.95| ¥1,375,00| ¥26,125.00/ 
11 '2012-1-12|ThinkPal 6| ¥4,799| 0.85| ¥4,319.10| ¥24,474.90{ 
12 12012-1-13|c470AH ¥3, 849| 0.75| ¥6,735.75| ¥20, 207.25 a 
13 ;2012-1-13|7470N-1| 8| ¥5,499| 0.85| ¥6,598.80| ¥37,393.20; 
14 (2012-1-13|ThinkP: 12| ¥4,600| 0.75| ¥13,800.00| ¥41,400.00} 
15 12012-1-14|c470AH 9| ¥3,799| 0.75| ¥8,547.75| ¥25,643.25! 
16 12012-1-14|Y470N-]| 13| ¥5,500| 0.9| ¥",150.00| ¥64,350.00; 
17 ;2012-1-14|ThinkPal 6| ¥4,799| 0.8| ¥5,758.80| ¥23,035.20; 
18 ‘2012-1-15|c470AH ?| ¥3,849| 0.95| ¥1,347.15| ¥25,595.85} 
19 12012-1-15|Y470N-1| 8| ¥5,499| 0. 二 6, 598. 80| ¥ 37, 393. 20 
pi 22012-1-15UhinkPal .14 X4500) 0.75| ¥15,100, 00|¥48, 300. 00! 
< 
22 
23 
24 EF 
25 v 
LEN] Sheet! Shoet sheety 8 J ET | GI 
图 14-70 选择 列表 区 域 
@ 到 单 击 【 列 表 区 域 】 右 侧 的 展开 按钮 [ 园 ， 展 开 【 高 级 筛选 】 对 话 框 ， 在 【列表 区 域 】 文 
本 框 中 显示 了 所 选区 域 的 绝对 引用 ， 然 后 单 击 【 条 件 区 域 】 文 本 框 右 侧 的 折叠 按钮 Ej， 选 择 创 
建 的 条 件 区 域 C23:D24， 如 图 14-71 所 示 。 
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a B C 了 E G 

13 | 2012-1-13|Y470N-1| 8| ¥5,499) 0. 85| ¥6,598.80| ¥37, 393. 20| 

14 | 2012-1-13|ThinkPal 12| ¥4,600| 0.75| ¥13,800.00| ¥41,400.00| 

15 | 2012-1-14|G470AH 引 ¥3,799| 0.75| ¥8,547.75| ¥25, 643. 25| 

16 |2012-1-14|Y470N-I| 13| ¥5,500, 0.9| ¥7,150.00| ¥64,350.00| 

17 |2012-1-14|ThinkPal 6| ¥4,799| 0.8| ¥5,758.80| ¥23,035.20 
_18 | 2012-1-15|G470AH 了 | ¥3,849| 0.95| ¥1,347.15| ¥25, 595.85 

19 |2012-1-15|lY470N-1| 8| ¥5,499| 0.85| ¥6,598.80| ¥37,393.20 

20 | 2012-1-15|ThinkPal 14| ¥4,600| 0.75| ¥16,100.00| ¥48, 300.00| 

21 

22 过 ~ ry 后 1 

23 高 级 病 先 - 条 件 区 域 : 。 忻 ] 属 | 

24 [sneeriterid| 区 | 

25 

26 


14-71 选择 条 件 区 域 


罗 选择 完毕 后 , 单 击 【条件 区 域 】 右 侧 的 展开 按钮 国 |, 展开 【高 级 筛选 】 对 话 框 , 在 【条 
件 区 域 】 文 本 框 中 显示 选择 条 件 区 域 的 绝对 引用 ， 如 图 14-72 所 示 。 


A B C D E 了 6 i 
13 | 2012-1-13|Y470N-]| 8| ¥5,499| 0.85| ¥6,598.80| ¥37,393.20| 
14 |2012-1-13|ThinkPa| 。 12| ¥4,600| 0.75| ¥13,800.00| ¥41,400.00| 
15 | 2012-1-14|0470AH 9| ¥3,799| 0.75| ¥8,547.75| ¥25,643.25| 
16 | 2012-1-14|Y470N-1| 13| ¥5,500| 0.9| ¥7,150.00| ¥64,350.00 
17 | 2012-1-14|ThinkPal 6 0.8| ¥5,758.80| ¥23,035.20 
18 | 2012-1-15|G470AH 下 9 35 8 
19 | 2012-1-15|Y470N-1| 8 
20 | 2012-1-15|ThinkP: 14| 
21 
2 品格 湖 结 果 复制 基地 位 置 (0) 
24 8 列 豆 区域) [Sheet1'$A$2.$0$20 [EE] 
25 条 件 区 域 C); [sheetlicriterid ” [8] 
26 | E 引 
27 es 和 
28 口 选择 不 重复 的 记录 E) 
革 [Cas Cw 
31 


图 14-72 显示 条 件 区 域 
@ 加 单 击 【 确 定 】 按 钮 ， 得 到 高 级 筛选 的 结果 ， 


【提示 用户 如 果 要 撤销 第 选 出 的 数据 结果 , 选择 【数据 〗 选 项 卡 , 单 击 【 排 序 和 第 选 〗 选 项 组 中 的 【 惫 
选 〗 按 钮 ， 即 可 撤销 第 选 显 示 全 部 数据 。 


14.3 
分 析 销 售 结果 


商品 销售 熏 利 与 否 ， 需要 通过 分 析 商 品 销售 数据 的 统计 结果 , 才能 得 以 判定 。Excel VBA 
是 企业 进行 商品 销售 数据 结果 分 析 的 一 种 有 效 工具 。 


14.3.1 销售 业绩 评价 


通过 销售 额 可 以 评定 销售 业绩 的 好 坏 。 销 售 额 的 统计 比较 麻烦 ， 很 多 企业 依靠 多 劳 多 得 
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的 政策 提高 员工 工作 积极 性 与 热情 ， 一 般 会 通过 销售 额 对 员工 进行 业绩 评价 ， 然 后 再 根据 评 
价 结果 确定 其 奖金 提成 和 年 终 奖 等 。 

使 用 Excel VBA 进行 销售 业绩 评价 ， 不 仅 可 以 避免 在 Excel 工作 表 中 计算 业绩 奖金 的 麻 
烦 ， 而 且 还 可 以 极 大 地 提高 评价 效率 和 准确 度 。 

以 如 图 14-73 所 示 的 笔记 本 销售 数据 表 为 例 , 使 用 Excel VBA 对 员工 销售 业绩 进行 评价 。 


k 日 5 D E | 
I 笔记 本 销售 数据 表 
2 彰 | 
3 _ 刘 增 [Gd470hH 20| ¥ 82, 400. 00| 
生 | 张 云 IY470N-IFI (H) 14| ¥52, 000. 00| 
5 | 张 军 |ThinkPad E420 18| ¥72, 000. 00 
6 郑 光 G470AH 13| ¥50, 000. 00| 
7 张 红 |Y470N-IFI (H) 10| ¥ 43, 000. 00| 
8 | 和 孔 玲 ThinkPad E420 21| ¥85, 000. 00| 
9 | 王 杰 |c470&H 11| ¥48, 700. 00 
10 张 矣 G470AH 17| ¥68, 800. 00| EL 
11 和 害 属 IY470N-IFI (H) 13| ¥59, 200. 00| | 
|_12 醉 凯 Yd470N-IFI(H) 9| ¥ 37, 600. 00| 
13 | 李 立 威 |ThinkPad E420 23| ¥ 92, 000. 00| 
14 李 表 [ThinkPad E420 12| ¥56, 000. 00| 
15 韩 少 华 |c470&H 19| ¥77, 500. 00| 
16 
17 
18 40000 以 下 1. 00%) 
19 40000 一 50000 “| 一 般 2. 00%) 
20 50000 一 60000 “| 好 4. 00M| 
21 60000 一 70000 | 较 好 - 6. 00% 
22 70000 以 上 很 好 10. 00%) 
23. 了 
人 LN Sheotl ,Shoat hooty 7 Nd mi 
图 14-73 ”商品 销售 数据 表 


@ 册 在 工作 表 中 按 AltrF11 组 合 键 打开 VBA 代码 窗口 ， 从 中 插入 一 个 模块 ， 并 在 模块 代码 
窗口 中 输入 下 面 的 “业绩 评价 ” 子 过 程 程序 代码 ， 如 图 14-74 所 示 。 


Public Sub 业绩 评价 () 
Dim i As Integer ' 定 义 一 个 用 于 循环 的 整 型 变量 
Dim count Rs Integer “' 定 义 一 个 用 于 保存 记录 数 的 整 型 变量 
count = Sheets ("Sheet1"). [A1] .CurrentRegion.Rows.count “，' 把 工作 表 的 记录 数 赋 给 
"count 
For i = 3 To count 
Select Case Cells(i, 4) 
Case 0 To 40000 
Cells(i, 5) = " 差 " "销售 额 为 0 一 40000， 则 业绩 评价 为 “ 差 ” 
Case 40000 To 50000 
Cells(i, 5) = "一 般 " "销售 额 为 40000 一 50000， 则 业绩 评价 为 “一 般 ” 
Case 50000 To 60000 
Cells (i，5) = "好 " "销售 额 为 50000 一 560000， 则 业绩 评价 为 “好 ?” 
Case 60000 To 70000 
Cells (i，5) = " 较 好 " ' 销 售 额 为 60000 一 70000， 则 业绩 评价 为 “ 较 好 ” 
Case 70000 To 999999999 
Cells (i，5) = "很 好 " "销售 额 为 70000 一 999999999， 则 业绩 评价 为 “很 好 ?” 
End Select 
Next i 
End Sub 


: 
3 
了 
i 
3 
3 
3 
; 
: 
让 
有 具体 操作 步骤 如 下 。 
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count = Sheets (Shest1“].[A1] .CurrentRegion Rows. count 
For i = 3 To count 


到 


“把 工作 表 的 记录 数 冉 给 cour 
Select Case Cells(i, 4) 
“销售 额 在 0 一 40000， 则 业 棕 评价 为 " 差 ~ 
一 般 ”“ 销售 额 在 40000 一 50000， 则 业绩 评价 为 一 般 ” 
Ok “销售 额 在 50000~80000 ， 则 业绩 评价 为 "好 ” 
“ 较 好 ”“ 销售 额 在 60000 一 70000， 则 业 殴 评价 为 " 较 好 ” 
To 999999999 
s(i，5) =“ 很 好 ” “销售 额 在 70000 一 999999999， 则 业绩 评价 为 "很 好 ” 


图 14-74 “业绩 评介 ” 子 过 程 代码 
园 代码 输入 完毕 后 ， 在 菜单 栏 选择 【运行 】> 【运行 子 过 程 /用 户 窗 体 】 菜 单 命令 ， 得 到 该 
ER 评价 结果 ， 如 图 14-75 所 示 。 
A B i is WD 1 6 Lz 
1 和 记 本 销售 到 所 表 
| 
2 | 
3 | 
和 | 张 去 [Y4708-IFI (H) ¥52, 000. oo | 
5 | 张 军 |ThinkPad E420 18| 王 72, 000. 00| 很 好 
6 | 郑 光 [Ga7OAH 13| 50.000.00|= 般 | 
于 | 张 红 [7470N-IFI (H) 10| ¥43, 000. 00| 二 般 
| 孔 玲 IThinkPad E420 21| ¥ 85, 000. 
9 | 王 杰 |6470AH 11| ¥48, 700. 00| 
10 | 张 屠 [G470AH 17| ¥68, 800. 0 
三 T| 症 格 “|Y470N-IFI(H) 13| "| 
12 基山 |Y470N-IFI (H) 引 
13 | 李 立 威 。 |ThinkPad E420 23| 
14 | 李 表 IThinkPad E420 12| 
15 | 韩 少 华 |c470hH 19| 
16 
17 LL 
18 40000 以 下 | 
19 40000 一 50000 | 一 般 | 
20 I50000 一 60000 _ | 好 | 
21 60000 一 70000 | 较 好 ln 
22 70000 以 上 很 好 E 
RY sheotl Shooth het 7 UE Cy | 


图 14-75 业绩 评价 结果 


@ 旨 为 了 计算 每 位 员工 的 “业绩 奖金 ， 需 要 在 “业绩 评价 ” 子 过 程 代码 框架 中 添加 下 面 的 


码 ， 如 图 14-76 所 示 。 
Public Sub 业绩 评价 () 


For i = 3 To count 
Select Case Cells(i, 4) 
Case 0 To 500000 
cells(i，6) = Cells (i，4) * 0.01 ' 业 绩 评 价 为 “ 差 ” 时 ， 奖 金 提成 为 1% 
Cells (i，6) = Cells (i，4) * 0.02 ' 业 绩 评价 为 “一 般 ” 时 ， 奖 金 提 成 为 2% 
Cells (i，6) = Cells (i，4) * 0.04 ' 业 绩 评 价 为 “好 ”时 ， 奖 金 提成 为 4% 
Cells (i，6) = Cells (i，4) * 0.06 ' 业 绩 评价 为 “ 较 好 ”时 ， 奖 金 提成 为 6% 
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Cells (i，6) = Cells(i，4) * 0.1 "业绩 评价 为 “很 好 ”时 ， 奖 金 提 成 为 10% 
End Select 
Next i 
End Sub 


| 硬 而 ) 司 邮 本 和 


Publie Sub 业 希 评价 0 
Dim i As Integer “ 个 用 于 御 环 的 整 型 变量 
Dim count As Integer “定义 一 个 用 于 保存 记录 数 的 整 型 变量 
count 2 Shests CShect1”) [A1]. CurrentRegion Rows. count “把 工作 表 的 记录 数 赋 给 cour 
了 or i = 3 To count 
Select Case Cells(i, 4) 
Case 0 To 


i 
End Sub i 
| 
图 14-76 “业绩 评价 ” 子 过 程 的 完整 代码 i 
> 、 一 人 一 全 
网 代码 输入 完毕 后 ， 在 菜单 栏 选择 【运行 】> [运行 子 过 程 /用 户 窗 体 】 菜 单 命令 , 得 到 业 : 
绩 奖 金 的 计算 结果 ， 如 图 14-77 所 示 。 i 
A B 3 5 E F SR :i 
, 笔记 本 销售 数据 | 
2 | 
3 C470A8 ER i 
生 | 张 去 |Y470N-IFI (H) Im ¥ 52, 000. 国 站 2080| i 
5 | 张 军 IThinkPad E420 18| 兰 72, 000. 00| 很 好 7200| 
6 | 郑 光 |c470AH 13| ¥50, 000. 00| 一 般 1000| i 
| 张 红 IY470N-IFI (H) 10| ¥43, 000. 00| 一 般 860| 
8 | 孔 玲 IThinkPad E420 21| ¥85, 000. 00| 很 好 8500| 要 
9 | 王 杰 |c470AH 11| ¥48, 700. 00| 一 般 974| i 
10 | 张 对 IC470AH 17| ¥¥68, 800. 00| 较 好 4128| 1 
11 秆 格 IY470N-IFI (H) 13| ¥59, 200. 00| 好 2368| 
2 v470n-IFI (H) 引 ¥¥37, 600. 00| 邯 376| 
13 | 李 立 威 ”|ThinkPad E420 23| 于 92, 000. 00| 很 好 9200| 
14 李 丽 IThinkPad E420 12| ¥56, 000. 00| 好 2240| 
15 韩 少 华 |6470AH 19| 茸 77, 500. 00| 很 好 7750| 3 
16 
17 和 
18 40000 以 下 站 i 
19 40000 一 50000 “| 一 般 2. 00%| i 
20 50000 一 60000 _ | 好 4. 00%| 
21 60000 一 70000 | 较 好 6. 00%| i 
22 70000 以 上 很 好 10. 00%| FE 
23 ae pl ee 4 
HN 4 FH] Sheotl .Sheetz Sheoty 7 I 站 本 大 了 | i 


14-77 业绩 奖金 计算 结果 


到 此 ， 已 经 完成 了 对 笔记 本 销售 数据 表 的 销售 业绩 评价 。 这 里 只 是 提供 了 一 种 业绩 评价 
和 计算 业绩 奖金 的 方法 ， 在 实际 工作 中 ， 用 户 只 需 将 “销售 额 ”或 “业绩 奖金 ”转换 成 不 同 
的 列 字 段 进行 业绩 评价 即 可 。 


| 利用 统计 函数 汇总 分 析 销 售 数据 


使 用 统计 函数 可 以 方便 地 从 大 量 销售 数据 中 获取 有 价值 的 汇总 信息 ， 如 统计 销售 人 员 数 
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目 、 汇 总 分 析 销 售 额 等 。 以 图 14-78 为 例 ， 使 用 Excel VBA 汇总 分 析 销 售 数据 的 具体 操作 内 
容 如 下 。 


站 82, 400. 00| 王 强 ¥ 82, 400. 00 
¥72, 000. 00| ¥ 52, 000. 00 
¥ 50, 000. 00| ¥ 72, 000. 00| 
¥ 50, 000. 00 
¥ 43, 000. 00| ¥ 85, 000. 00| ¥ 43, 000. 00| 
¥ 85, 000. 00| 和 59, 200. 00| 李 佳 佳 ¥ 85, 000.00 
¥ 48, 700. 00 于 37, 600. 00| 程 晓 静 ¥ 48, 700. 00 
¥ 68, 800. 00| 羊 92, 000. 00| 李 静 ¥ 58, 800. 00| 
¥ 59, 200. 00 和 56, 000. 00| 宋 丽 功 于 48,700.00 
入 37, 600.00 叶 欣 ¥ 68, 800. 00| 
站 92, 000. 00| 李 雅 欣 ¥ 37, 600. 00| 


,000. 00 
和 56, 000. 00| 张 慧 杰 季 56, 000. 00| 种 源 ¥ 56, 000. 00 
¥77, 500.00| 第 77, 500. 00| 郑 小 波 ¥77, 500. 00| 


NA VN] Sheet! heetd sheetd 7 IC | 5 


图 14-78 ”商品 销售 额 记录 表 


1. 统计 销售 人 员 数 目 

专 做 市 场 销售 的 企业 会 有 大 批 的 销售 人 员 ， 而 且 这 些 人 的 变更 很 频繁 ， 管 理 人 员 不 可 能 
时 刻 掌握 销售 人 员 的 数目 。 可 以 使 用 以 下 Excel VBA 程序 代码 实现 统计 销售 人 员 数 目的 功能 ， 
具体 操作 步骤 如 下 。 

和 打开 “笔记 本 销售 额 记录 表 ， 按 AlttF11 组 合 键 打 开 VBA 代码 窗口 ， 从 中 插入 一 个 模 
块 ， 并 在 模块 代码 窗口 中 添加 一 个 “笔记 本 销售 数据 汇总 分 析 ” 公 有 子 过 程 ， 然 后 在 该 过 程 框架 
中 输入 以 下 程序 代码 ， 如 图 14-79 所 示 。 

Public Sub 销售 数据 汇总 分 析 () 


Dim i, j As Integer ' 定 义 用 于 循环 的 整 型 变量 
Dim temp As Integer "定义 用 于 记录 销售 人 员 数 目的 整 型 变量 
Dim count As Integer "定义 用 于 记录 工作 表 的 记录 数 的 整 型 变量 


Dim TempMsgbox As VbMsgBoxResult ' 定 义 一 个 消息 对 话 框 的 返回 值 的 类 型 
count = Sheets ("Sheet1"). [A1] .CurrentRegion.Rows .count "把 工作 表 的 记录 数 赋 
"给 count 
For 1 = 1 To 6 
If Cells (2，i) = "销售 额 " Then "判断 列 标志 是 不 是 “销售 额 ” 
Por i = 3 P00Ount 
IE Cells (j，i) <> "" Then “判断 单元 格 是 否 为 空 
temp = temp + 1 ' 累 加 求 和 
End If 
Next j 
End If 
Next i 


TempMsgbox = MsgBox(" 目 前 共有 销售 人 员 " & temp & "个 ", vbOKOnly, "销售 数据 汇总 分 析 ") 


' 将 计算 结果 以 对 话 框 的 形式 输出 
End Sub 
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了 | | 定 富 人 闪 司 
Publie Sub 销售 数据 汇总 分 析 0 


Jim i, j As Integer 于 循环 的 整 型 变量 

rp 守信 信人 祷 的 革 玫 

Jia count As Integer "定义 用 于 记录 工作 守 的 记录 数 的 整 划 去 量 

Dim Templlsgbox As VbllsgBoxResult "定义 一 个 消息 对 话 框 的 返回 值 的 类 型 

count = Sheets ("Sheet1”). [Al]. CurrentRegion Rows. count 。 “把 工作 表 的 记录 数 赋 给 


Fori=1To6 
于 本 = “销售 额 ”Then “判断 列 慰 志 是 不 是 “销售 额 
or j = 3 To count 
I CellsG, i) © "” Then 和 
《eap = tenp + 1 “ 黑 加 各 
nd If 
Next j 
End If 


Ne 
了 see = Iapox ("目前 共有 销售 人 员 ”& tenp & “个 “，vbDkDnly，" 销 售 数据 汇总 分 
st 


14-79 “销售 数据 汇总 分 析 ” 子 过 程 代码 


@ 到 代码 输入 完毕 后 ,选择 【运行 】> 【选择 子 过 程 /用 户 窗 体 】 菜单 命令 ， 即 可 看 到 系统 自 
动 返回 的 消息 对 话 框 ， 14-80 所 示 。 


¥ 82, 400. 00 
¥ 72, 000. 00| 


#4 
二 
3 
#3 
#4 
3: 
4 
4 
#4 
i 
i 
+ 
1 
既 Rn i! 
¥ 59, 200.00 56, 000. 00| 宋 丽 人 
¥ 37, 600.00| 张 光 ¥ 37, 600. 00| i 上 
¥ 92, 000. 00| 站 92, 000. 00| 李 雅 欣 多 
i 
i 
二 
i 
i 
i 
和 
i 
和 
i 
二 
i 
i 
i 
1 
i 


¥ 55, 000. 00| 乍 56, 000. 00| 种 源 
¥77, 500. 00 羊 77, 500. 00| 郑 小 波 


图 14-80 销售 人 员 数 目 提示 对 话 框 
2. 对 销售 额 进行 汇总 分 析 
使 用 Excel VBA 对 销售 额 进行 汇总 分 析 的 具体 操作 步骤 如 下 。 


@ 遇 在 “销售 数据 汇总 分 析 ” 子 过 程 的 代码 窗口 中 补充 以 下 代码 ， 如 图 14-81 所 示 。 
Public Sub 销售 数据 汇总 分 析 () 


Dim value (59) As Double  ' 定 义 用 于 记录 销售 额 的 双 精 度 型 数组 


For i=1To6 


value (temp) = Cells(j，i)  ' 用 数组 记录 每 个 销售 人 员 的 销售 额 
temp = temp + 1 ' 累 加 求 和 


MsgBox "其 中 共有 " & WorksheetFunction.CountIf (Range ("A2:F15"),， ">60000") _ 
& "人 销售 额 大 于 60000" & Chr(13) _ 
和 共有 " & WorksheetFunction.CountIf (Range ("A2:F15"), "<40000") _ 
& "人 销售 额 小 于 40000"，vboKOnly， "销售 数据 汇总 分 析 " 
' 在 消息 对 话 框 中 输出 销售 额 的 大 概 情况 
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MsgBox "销售 额 第 一 名 是 " & WorksheetFunction.Large(value()，1) & "元 人 民 币 " 
& Chr (13) & "销售 额 第 二 名 是 " & WorksheetFunction .Large (value () ，2) & "元 人 民 币 " 
& Chr (13) & "销售 额 第 三 名 是 " & WorksheetFunction.Large (value () ，3) & "元 人 民 币 " 
& Chr (13) & "销售 额 最 差 的 是 " & WorksheetFunction.Min(value()) & "元 人 民 币 " _ 
& Chr (13) & "平均 销售 额 是 " & WorksheetFunction.Average (value ()) & "元 人 民 币 " 
， vboKon1y， "销售 数据 汇总 分 析 " 

' 在 消息 对 话 框 中 输出 销售 额 的 汇总 分 析 情 况 
End Sub 


[ 码 用 ) [ 届 计 站 大志 总 分 析 


本 


Din count As Intsgsr 记录 了 作乱 的 记录 站 的 兰 开 到 最 

Din 了 mplsebox A Wsghoxhesult “和 宪 又 一 个 消息 守 话 稚 的 守旧 六 的 并 型 

rt Sta Sheet1”). [AL]. CarrentRegion Rows. count 。 “把 工作 表 的 记录 数 赋 疆 
“Tt Eastp，i = “销售 桥 ” Then 。。 “判断 列 生 志 是 不 是 "销售 
For j=3 Te comt 、。。 ee 


Next i 


a rt CountIf Range (“A2:F15"), “X0000") _ 
13 
Ee 15"), “<40000") _ 


"A orksheetPunction Large (value 0, 1) & “ 
A WorksheetFunction Large (value ), 2) & 和 
A YorksheetFunection. ed 3) a 市 "| 
“A WorksheetFunction. llin (valueO) & “元 人 | 
”orksheetFunction Average (value 0) 如 “元 人 民 币 ”_ 


图 14-81 销售 数据 汇总 分 析 完 整 代码 


【提示 】 在 这 段 代码 中 ， 首先 引入 一 个 用 于 记录 销售 额 的 双 精度 数组 value () ， 在 对 销售 人 员 的 数目 进 
行 累加 求 和 时 ， 分 别 将 每 人 的 销售 额 记录 在 数组 内 ; 然后 在 MsgBox 函数 内 使 用 统计 函数 CountIf () 
返回 满足 条 件 的 销售 人 员 数 目 ; 最 后 在 MsgBox 函数 内 使 用 统计 函数 Large ()、Min () 和 Average () 
分 别 返 回 销售 额 的 汇总 分 析 情 况 。 

@ 贡 代码 输入 完毕 后 ， 在 菜单 栏 选择 【运行 】> 【选择 子 过 程 /用 户 窗 体 】 菜 单 命 令 , 弹出 的 
消息 对 话 框 ， 如 图 14-82 所 示 。 


A B 3 D E F 
4 张 去 等 52,000.00| 岩 占 利 和 72, 000. 00| 张 明 远 ¥ 52, 000. 00 
5 | 张 军 了 72,000.00| 王 国 请 ¥ 50, 000. 00| ¥ 72, 000. 00| 
6 | 郑 光 竺 50, 000. 00| 岩 晓 蒸 | 站 43, 000. 00| 秦 明明 ¥ 50, 000. 00| 
了 | 张 和 一 | ¥ 43, 000. 00| 
8 ¥ 85, 000. 00| 
¥ 48, 700. 00| 
¥ 68, 800.00| 
¥ 48, 700. 00| 
¥ 58, 800. 00 
1 ¥ 37, 600. 00| 
14 李 丽 ¥56, 000. 竺 56, 000. 00| 种 源 ¥ 56, 000. 00| 
15 韩 少 华 季 77,500.00| 张 克 歌 竺 77, 500. 00| 郑 小 波 ¥ 77, 500. 00| 
16 
14-82 ”返回 总 体 情况 
rs a Ss 
【确定 】 按 钮 ， 系 统 将 自动 弹出 销售 额 的 汇总 分 析 结 果 ， 如 图 14-83 所 示 。 
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A B C D E 下 
4 | 张 云 季 52, 000. 00| 岩 占 利 秆 72, 000. 00| 张 明 远 ¥ 52, 000. 00| 
5 张 军 羊 72, 000. 00| 王 国 博 季 50, 000. 00| 杜 森 ¥ 72, 000. 00| 
6 | 郑 光 ¥ 50, 000. 和 ¥ 50, 000. 00| 
7 张 红 43, 000. flatts ¥ 43, 000. 00| 
8 着 玲 85, 000. 一 各 时 sz0n0 元 人 民 而 ¥ 35, 000. 00 
9 | 王 杰 se 700- 湖 呈 = 人 ¥ 48, 700. 00 
10 张大 68, 800. 人 ¥ 68, 800. 00| 
11 人 妊 指 59, 200. AR ¥ 48, 700. 00| 
12 功 凯 37, 600. ¥ 68, 800. 00| 
13 | 李 立 威 92, 000. ¥ 37, 600. 00| 
14 李 丽 ¥ 56, 000. Tt rr ¥ 56, 000. 00| 
15 韩 少 华 竺 77, 500. 00| 张 克 歌 竺 77, 500. 00| 郑 小 波 ¥ 77, 500. 00| 


14-83 ”返回 销售 额 汇总 分 析 

【提示 】 在 实际 应 用 中 ， 用户 可 以 根据 需要 获得 相应 销售 额 的 汇总 分 析 结 果 ， 只 需 改 变 Large(value( ),1) 
函数 中 返回 序列 数 “1” 即 可 。 
3. 对 销售 额 进行 排序 

使 用 Excel VBA 程序 代码 对 销售 额 进行 排序 ， 具 体操 作 步 又 如 下 。 

@ 山 在 上 文 添加 的 模块 中 插入 一 个 “销售 排序 ”公有 子 过 程 ， 并 在 其 中 插入 以 下 程序 代码 ， 
如 图 14-84 所 示 。 

Public Sub 销售 额 排 位 () 


Dim Rag As Range "定义 一 个 鼠标 事件 返回 值 的 类 型 
Dim TempMsgbox As VbMsgBoxResult "定义 一 个 消息 对 话 框 的 返回 值 的 类 型 
Set Rag = Application.Selection "为 鼠标 事件 赋 初 值 为 应 用 程序 的 选择 事件 
If Rag.value = "" Then "判断 是 否 选中 某 个 单元 格 
TempMsgbox = MsgBox (" 选 择 销售 员 或 销售 额 "，vboKon1y， "销售 额 排 位 ") 
' 弹 出 提示 对 话 框 
Else 


If WorksheetFunction.IsNumber (Rag.value) Then ' 判 断 选中 的 单元 格 中 是 否 是 数字 ， 
' 即 销售 额 
TempMsgbox = MsgBox (Rag.0ffset (0，-1) .value & "的 销售 额 是 第 " 
& WorksheetFunction.Rank (Rag.value, Range ("A2:F15"), 0) & "位 ", vboKOonly, " 
销售 额 排 位 ") 
' 如 果 选 中 的 是 销售 额 ， 则 返回 到 销售 额 所 在 单元 格 的 前 一 个 单元 格 输出 其 销售 人 员 姓 名 
Else 
IE WorksheetFunction.IsNumber (Rag.Offset (0, 1) .value) Then 
TempMsgbox = MsgBox (Rag.value & "的 销售 额 是 第 "”_ 
& WorksheetFunction.Rank (Rag.Offset (0, 1) .value, Range ("A2:F15"), 0) & 


"位" 
，vboKon1y， "销售 额 排 位 ") 
"如 果 选 中 的 是 销售 人 员 ， 则 将 销售 人 员 的 销售 额 排 位 后 输出 
Else 
TempMsgbox = MsgBox (" 错 误 的 选择 "，vboKOn1y， "销售 额 排 位 ") 
"如 果 选 中 的 是 空 的 单元 格 ， 或 其 他 单元 格 ， 则 提示 “错误 信息 ” 
End If 
End If 
End If 
End Sub 
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| 销售 竹 排 位 
es she， tTineti on Co Ee F15"), “<40000") _ 


cton Leer alotO, 1) & "元 人 民 币 “ 
orksheetFuncti 


ue O 〇 ，2) & “元 人 | 


i nn. Lar ge (wal 于 市 
让 是 A eo 3) & “元 人 民 币 ” 


Chr (13) & “销售 额 最 ”orksheetFunction Min(value 0) & “元 人 民 币 ” 
= bs) es i 二 加 & WorksheetFunction Average (value 0) & “元 人 民 而 ”_ 
0 i 


14-84 ”销售 额 排 位 子 过 程 代码 


【提示 】 在 以 上 代码 中 ， 首 先 定 义 一 个 鼠标 事件 返回 值 类 型 的 变量 Rag， 并 将 应 用 程序 的 选择 事件 赋值 
给 Rag; 然后 使 用 下 语句 判断 用 户 是 否 选择 了 某 个 单元 格 ， 如 果 没 有 ， 则 弹出 提示 信息 ， 否 则 继续 判 
断 该 选中 单元 格 的 内 容 是 “销售 额 ” 还 是 “销售 员 ”， 并 针对 不 同 的 单元 格 内 容 分 别 进行 排 位 输出 ， 如 
果 用 户 选 择 的 是 其 他 无 关 单元 格 ， 则 将 弹出 “错误 的 选择 ”提示 信息 
【注意 】 在 使 用 这 段 代码 时 ,“ 销 售 额 ” 字 段 下 的 单元 格格 式 不 能 是 “货币 ”型 ， 可 以 用 “数值 ”型 或 
“常规 ”等 类 型 表示 。 

@ 到 在 工作 表 中 为 上 述 程序 设置 执行 按钮 。 选 择 功能 区 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 
项 组 中 的 【插入 】 下 拉 列 表 中 单 击 【 按 钮 】 按 钮 引 ( 窗 体 控件 ) ， 然 后 在 工作 表 的 适当 位 置 拖 放 
产生 该 按钮 ， 系 统 会 自动 弹出 【指定 宏 】 对 话 框 ， 在 【 宏 名 】 列 表 框 中 选择 “销售 额 排 位 ”选项 ， 
如 图 14-85 所 示 。 


14-85 【指定 宏 】 对 话 框 
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@ 旨 单 击 【 确 定 】 按 钮 ， 完 成 宏 的 指定 操作 。 然 后 右 击 插入 的 按钮 ， 在 弹出 的 快捷 菜单 中 选 
择 【 编 辑 文字 】 菜单 命令 ， 将 按钮 名 称 更 改 为 “销售 额 排 位 ”， 如 图 14-86 所 示 。 

@ 绚 退出 该 按钮 的 编辑 状态 ， 单 击 【 销 售 额 排 位 】 按 钮 ， 执 行 指定 的 过 程 ， 系 统 即 可 根据 月 
户 在 工作 表 中 选中 的 单元 格 返回 相应 的 消息 对 话 框 。 如 果 选 中 的 是 空 的 单元 格 ， 则 弹出 “选择 销 


售 员 或 销售 额 ”的 消息 对 话 框 ， 如 图 14-87 所 示 。 

[4 a TT SE I 

4 | 张 云 季 72. 000. 00| 张 明 远 ¥ 52, 000. 00| 

5 | 张 军 羊 50, 000. 00| 杜 森 ¥ 72, 000. 00| 

6 | 郑 光 站 43, 000. 00| 秦 明明 ¥ 50, 000. 00| 

7 | 张 红 丫 85, 000. 00| 王 翔 ¥ 43, 000. 00| 

8 | 孔 玲 第 59, 200. 00| 李 佳 佳 ¥ 85, 000. 00| 

9 | 王 杰 站 37, 600. 00| 程 晓 静 ¥ 48, 700. 00| | 

10 张 天 和 92, 000. 00| 李 静 ¥68,800.00| | 
,11 洗 抱 季 56, 000. 00| 宋 丽 蕊 ¥ 48, 700. 00| | 

12 | 蕊 凯 站 37, 600.00| 叶 欣 ¥68,800.00| | 

13 | 李 立 威 丫 92, 000. 00| 李 雅 欣 ¥ 37, 600. 00| | 

14 李 丽 . 和 56, 000. 00| 种 源 ¥ 56, 000. 00| | 

15 | 韩 少 华 第 77, 500. 00| 张 克 歌 第 77, 500. 00| 郑 小 波 ¥77, 500. 00| 

16 

了 销售 新 排 位 销售 额 排 位 园 
计 选择 销售 员 或 销售 额 
21 U 

22 四 

MW 4 FW] Sheetl ,Sheet Sheetd H4l 四 [加 

图 14-86 更 改 按钮 名 称 并 设置 控件 格式 图 14-87 选中 空 的 单元 格 


上 @ 国 如 果 选 择 了 类 似 B2 等 其 他 无 关 的 单元 格 ， 系 统 则 弹出 “错误 的 选择 ”消息 对 话 框 ， 如 
14-88 所 示 。 


@@ 如 果 选择 的 是 “销售 人 员 ” 列 的 姓名 单元 格 , 系统 则 弹出 如 图 14-89 所 示 的 消息 对 话 框 。 
[a 

1 | 

2 JT-E 

3 | 400. 00| 王 强 ¥ 82, 400. 00| | 

4 | ¥52, 000. 00| 几 有 jbaiias 基 E000. 00| 张 明 远 ¥52, 000. 00 

5 | _¥72, 000. 00| 王 | seggrg [000.00| 杜 森 ¥ 72, 000. 00 

6 站 50, 000. 00| 贿 000. 00| 泰 明明 ¥ 50, 000. 00| 

7 张 & 43,000.00| 王 | [ER 一 |ooo.oo| 王 闭 ¥ 43, 000. 00 

8 | 孔 玲 200. 00| 李 佳 佳 “| 85,000.00| | 

9 | 王 杰 | ¥37, 6500. 00| 程 晓 静 ¥ 48, 700. 00| 入 

10 张大 | 丫 92, 000. 00| 李 静 ¥68, 800.00| | 

| 阅 56, 000.00| 宁 丽 蕊 | 站 48, 700. 00| 

12 薛 凯 | 羊 37, 600. 00| 叶 欣 ¥68,800.00| | 

13 李 立 威 站 92, 000. 00| 李 雅 欣 ¥ 37, 600. 00| 了 一 
14 李 丽 | | 季 56, 000. 00| 种 源 ¥56, 000. 00| | 销售 额 排 序 区 | 
15 韩 少 香 “| 学 77.500- 00| 张 克 歌 | 丫 77, 500. 00| 郑 小波 ¥77, 500. 00 | 

| ET U 

18 . 
[RD Sheet! Sheet Shest3 RH wal a Gd 


图 14-88 错误 选择 提示 信息 图 14-89 张 克 歌 的 销售 额 排 位 
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技巧 1， 如 何 撤销 数据 筛选 操作 


执行 完 数 据 筛选 代码 后 ， 自 动 对 数据 启用 筛选 功能 ， 如 果 想 要 取消 该 功能 ， 再 次 单 击 得 
选 功能 的 执行 按钮 即 可 。 


技巧 2: 快速 设置 销售 金额 为 货币 格式 


计算 出 的 金额 默认 会 按照 原来 单元 格 的 格式 显示 数据 ， 如 果 要 显示 为 货币 格式 的 话 ， 可 
以 选中 销售 金额 列 的 单元 格 ， 然 后 右 击 ， 在 弹出 的 快捷 菜单 中 选择 【设置 单元 格格 式 】 菜 单 
命令 ， 打 开 【 设 置 单元 格格 式 】 对 话 框 ， 在 【数字 】 选 项 卡 中 设置 单元 格格 式 为 “货币 ”。 
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第 15 草 用 Excel VBA 实现 高 效 
文件 处 理 


使 用 Excel 开发 的 很 多 应 用 程序 都 需要 处 理 外 部 的 文件 ， 只 使 用 Excel 的 内 置 函 数 往往 
达 不 到 这 种 要 求 ， 此 时 就 需要 使 用 VBA 来 解决 。 

另外 ， 企 业 管理 人 员 在 对 多 个 相关 表格 文件 中 的 数据 进行 管理 时 ， 经 常 要 在 多 个 文档 之 
间 进 行 切换 ， 这 样 不 仅 操作 起 来 比较 麻烦 ， 而 且 也 很 容易 出 现 错误 。 本 章 将 使 用 Excel VBA 
进行 高 效 文件 处 理 操 作 ， 不 仅 可 以 使 企业 管理 人 员 的 这 一 工作 变 得 简单 方便 ， 而 且 还 可 以 保 
证 文件 数据 的 安全 。 


15.1 
显示 文件 列表 


为 了 在 Excel 中 显示 某 个 目录 下 的 所 有 文件 列表 ， 可 以 使 用 与 文件 有 关 的 VBA 函数 ， 
也 可 以 使 用 FileSearch 对 象 。 


15.11 使 用 VBA 函数 显示 文件 列表 


Dir 函数 可 以 返回 与 指定 的 模式 或 文件 属性 相 匹配 的 文件 名 或 目录 ， 用 户 可 以 使 用 该 函 
数 来 显示 文件 列表 。 

使 用 VBA 函数 显示 文件 列表 的 具体 操作 步骤 如 下 。 

@@ 贡 建 一 张 空白 工作 短 ， 在 Sheetl 工作 表 中 选择 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 项 组 


的 【插入 】 下 拉 列 表 中 单 击 ActiveX 控件 组 中 的 【命令 按钮 】 按 钮 到 ， 在 Sheetl 工作 表 中 添加 
一 个 命令 按钮 ， 并 将 其 Caption 和 “名 称 ” 属 性 值 修改 为 “显示 文件 列表  ， 如 图 15-1 所 示 。 


[ETRTEA 入 门 与 实战 


国 | 加 9- 人 -|= 新 蛙 Microsoft Excel 工 作 表 xism - Microsoft Excel 
| = EE 
回忆 园区 | 
寻 跨 | 归 |5 国 
Visual Basic jn 项 COM 加 吉大 | 括 和 | 天 全 三 
全 入 9 
全 加 村 项 EB 
| 显示 文件 列表 ~@ 至 | =ENBED(“Foras 
机 EEC D 
1 
2 
3 
3 dmxte 
本 ©° 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
MPN Sheetl Sheeta Sheet9 2 o 二 
LE | 刁 吕 四 loox 已 一 一 0 


图 15-1 修改 命令 按钮 属性 


@ 到 在 设计 模式 下 双击 插入 的 【显示 文件 列表 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 输 入 下 
面 的 代码 程序 ， 如 图 15-2 所 示 。 


Private Sub 显示 文件 列表 click() 
Dim message As String 
Dim directory As String, s As String 
Dim row As Long 
Dim fs As Object 
message = "请 选择 需要 显示 文件 列表 的 文件 路 径 ! " 
directory = GetDirectory (message)  ' 通 过 调用 函数 返回 文件 夹 的 路 径 
IE directory = "" Then 
Exit Sub 
End If 
If Right(directory, 1) <> "\" Then 
directory = directory & "\" ' 确 定 文件 夹 的 路 径 
End If 
row = 4 ”“' 从 工作 表 的 第 4 行 开始 显示 
Cells.ClearContents ' 清 除 工 作 表 中 的 原 有 内 容 


Cells (row，1) = "文件 名 称 " 
Cells(row, 2) = 
Cells (row，3) = "大 小 " 
Cells(row, 4) = 
Range ("A4:D4") .Font .Bold = True 
Range ("A4:D4") .Font.Color = RGB(10, 200, 200) 
s = Dirl(directory, 7) ' 获 取 第 一 个 文件 
Do While s <> "" 

row = row + 1 

Cells(row, 1) = s "文件 的 名 称 

Set fs = CreateObject ("Scripting.FileSystemObject") 
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Cells (row，2) = fs.GetFile(directory & s) .Type ' 文 件 的 类 型 
If FileLen(directory & s) = 0 Then ' 文 件 大 小 
Cells(row, 3) = "0 KB" 
Else 
Cells(row, 3) = Trim(Str(Int (FileLen(directory & s) / 1024) + 1)) & 
m KB" 
End If 
Cells (row，4) = FileDateTime (directory & s) “' 修 改 时 间 
s = Dir "获取 下 一 个 文件 
Loop 
Columns ("A:D") .EntireColumn.AutoFit “自动 调整 列 宽 


End Sub 


这 段 代码 首先 使 用 GetDirectory 自 定义 函数 获取 文件 夹 的 名 称 及 其 存放 路 径 ， 然 后 自动 清 
空 工作 表 中 的 原 有 内 容 ， 并 设置 标题 的 字体 及 其 格式 ， 再 使 用 Dir 函数 检索 文件 的 名 称 及 其 路 
径 ， 第 1 次 使 用 Dir 函数 的 目的 是 检索 找到 的 第 1 个 文件 名 ， 第 2 次 使 用 Dir 函数 的 目的 是 检 
索 其 他 的 文件 名 , 当 找 不 到 更 多 的 文件 时 该 函数 就 会 自动 返回 一 个 空 字符 串 ; 最 后 使 用 AutoFit 
方法 自动 调整 A~D 列 的 列 宽 ， 使 得 这 4 列 中 的 数据 能 够 自动 地 显示 在 当前 单元 格 中 。 

代码 中 的 “s = Dir (directory,7)” 语 句 是 用 来 获取 文件 的 显示 列表 。 其 中 第 1 个 参数 用 
于 指定 文件 的 存放 路 径 ， 第 2 个 参数 用 于 指定 文件 的 属性 ， 当 该 参数 值 为 7 时 就 可 以 检索 所 
有 的 文件 ， 无 论 是 只 读 文 件 、 隐 藏 文件 ， 还 是 系统 文件 。 

代码 中 还 用 到 与 文件 有 关 的 其 他 命令 , 分 别 是 FileLen、FileDateTime 和 GetFile。FileLen 
返回 文件 的 大 小 ， 单 位 为 字 节 ，FileDateTime 返回 最 后 一 次 修改 文件 的 日 期 和 时 间 ，GetFile 
返回 一 个 和 指定 路 径 中 文件 相对 应 的 File 对 象 。 

代码 中 用 到 了 FileSystemObject 对 象 〈 简 称 FSO 对 象 )，FSO 对 象 不 是 VBA 的 一 部 分 ， 
而 是 以 组 件 的 形式 提供 的 。FSO 对 象 提供 大 量 的 方法 、 属 性 和 事件 ， 可 以 方便 地 操作 驱动 器 、 
文件 夹 和 文件 。 使 用 FSO 对 象 需要 先 定义 Object 变量 , 然后 使 用 CreateObject 方法 创建 对 象 。 


isual Dasic for Applicatipns - 宪 建 Wicrosoft Excel 工作 去 .xlsa [设计 ] .-. 居 | 问 | 风 | 
问 强 人 疯 四 W) 短信 册 ， 囊 RD) 油 趟 0D) 让 5IR) 工具 中 和 现任 入 A) 宇 DW 村 雪 () -Sx 
5 忆 记 A TC 13M MTR OF2.N5 

[x 


EB 
加 Priw ub 显示 文件 列 起 -Click 0 


Teop 
CAD EntiraCulmn inttFit “ 蛋 动 调理 列 寅 
as 由 


图 15-2 输入 按钮 响应 代码 
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X 


Wi 1 


[TI 玖 入 门 与 实战 
为 了 实现 显示 文件 列表 的 功能 ， 还 需要 再 新 建 一 个 模块 ， 并 在 模块 代码 窗口 中 添加 声明 
函数 的 语句 、 用 户 自 定义 数据 类 型 的 创建 语句 。 
加 在 VBA 代码 窗口 中 选择 【插入 】> 【模块 】 菜 单 命令 ， 即 可 插入 一 个 新 模块 ， 黑 认 名 
称 为 “模块 1 ” ， 如 图 15-3 所 示 。 


crosoft Wisnal fasic for Applications - 新 建 Wicrnsoft Excel 工作 去 .zlsa [设计 ] ... 攻 | 四 | 国 
i 路 文昌 ”六 加 上 E 坑 图 VI 括 入 四。 属 KIO) 二 zp) 二 工 琴 四” 外接 程 所 的 窗口 WD 大 动 t 
国 国 :加 六 锭 史 亲 9 ，2 2 况 村 印字 OO 1 Nl 
7 [车 昌 


图 15-3 插入 模块 
@ 旬 在 “模块 1 ”代码 窗 口中 输入 下 面 的 程序 代码 ， 如 图 15-4 所 示 。 


Option Explicit ' 避 免 有 未 定义 的 变量 
Declare Function SHBrowseForFolder Lib "SHELL32.DLL" (lpBrowseInfo As 
BROWSEINFO) As Long 
Declare Function SHGetPathFromIDList Lib "SHELL32.DLL" (ByVal pidl As Long, 
ByVal pszPath As String) As Long 
Public Type BROWSEINFO ' 创 建 一 个 用 户 定义 数据 类 型 BROWSEINFO 
Owner As Long 
Root As Long 
DisplayName As String 
Title As String 
Flags As Long 
lpfn As Long 
Param As Long 
Image As Long 
End Type 


入 icrosoft Yisual Basic for Applications - 新 建 及 crosoft Excel 工作 表 .xlsa [设计 ] ... 攻占 | 病 
i 网 交 # 四 尖 六 旧 机) 括 AD 和 IO) 泥 tD) 运 5@ 工具 D 站 择 程 FA 多 CD 才 bH) 


国 回 -里 必 双 拆 JF 1 Ek 行 1, 昼 1 


二 

er Lib “glgaLoa_DLLw Aptr owseTefo As 3pPDYSETIPO) As LS 
SOT Vad pidl hs Long, ByVal Pr 

1 用户 定义 芭 蜂 汪 wwe ri 


图 15-4 在 模块 1 中 输入 代码 


这 段 代码 中 声明 的 SHGetPathFromIDList 和 SHBrowseForFolder 都 是 32 位 Windows API 
函数 。Windows API (Application Programming Interface， 应 用 程序 编程 接口 ) 是 Windows 操 
作 系 统 提供 给 用 户 进行 系统 编程 和 外 设 控制 的 强大 函数 库 , 凡是 在 Windows 工作 环境 下 执行 
的 应 用 程序 都 可 以 调用 ， 不 过 使 用 之 前 必须 进行 声明 。 在 VBA 中 声明 代码 必须 位 于 模块 的 
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顶部 ， 声 明之 后 即 可 在 VBA 子 过 程 中 直接 使 用 。 

接 下 来 介绍 一 下 SHGetPathFromIDList 和 SHBrowseForFolder 这 两 个 函数 的 作用 。 
SHGetPathFromIDList 的 作用 是 打开 【浏览 文件 夹 】 对 话 框 ， 用 户 可 以 从 中 选择 文件 夹 所 在 
的 路 径 ，SHBrowseForFolder 的 作用 是 记录 用 户 在 该 对 话 框 中 进行 的 操作 。 如 果 用 户 单 击 的 
是 对 话 框 中 的 【确定 】 按 钮 ， 则 该 函数 的 返回 值 就 为 1; 如 果 单 击 的 是 【取消 】 按 钮 ， 则 该 
函数 的 返回 值 就 为 0。 

因为 SHBrowseForFolder 应 用 程序 需要 处 理 有 关 文 件 夹 的 信息 , 所 以 这 里 需要 创建 一 个 用 户 
自 定义 数据 类 型 BROWSEINFO, 用 来 记录 有 关 文 件 夹 的 所 有 资料 信息 。 自 定义 数据 类 型 也 必须 
位 于 模块 的 项 部 ， 即 在 其 他 过 程 之 前 定义 。 在 创建 了 用 户 定义 数据 类 型 之 后 ,用 户 只 需 使 用 Dim 
语句 将 某 个 变量 声明 为 这 种 类 型 ， 然 后 使 用 点 运行 符 “.” 引 用 其 中 的 各 个 变量 即 可 。 


人 @ 国 在 上 述 代码 窗口 中 继续 输入 自 定义 函数 GetDirectory 的 代码 程序 ， 如 图 15-5 所 示 。 


Function GetDirectory (Optional message) As String 

Dim bInfo As BROWSEINFO "将 变量 声明 为 用 户 定义 数据 类 型 BROWSEINFO 
Dim Path As String 

Dim r Rs Long, x Rs Long, pos As Integer 


bInfo.Root = 0 "确定 文件 夹 的 根 目录 是 桌面 
bInfo.Title = message "确定 【浏览 文件 夹 】 对 话 框 中 显示 的 文本 
bInfo.Flags = &H1 "确定 路 径 的 返回 类 型 
x = SHBrowseForFolder (bInfo) ' 弹 出 【浏览 文件 夹 】 对 话 框 
path = Space$ (256) "确定 用 户 选 择 的 文件 夹 的 路 径 长 度 
r = SHGetPathFromIDList (ByVal x，ByVal path) “， 记 录用 户 在 对 话 框 中 进行 的 操作 
If r Then ' 得 到 路 径 的 返回 值 
pos = Instr(path, Chr(0)) 
GetDirectory = Left (path, pos - 1) 
Else 
GetDirectory = "" 
End If 


End Function 


梧 GE 


得 免 有 不 定义 的 去 量 
sn SNBrowseForFolder Lib “SHELL32 DLL Np 
athgr Lib DL” 0 


车 忆 > 全 闫 en 


图 15-5 输入 自 定义 函数 GetDirectory 的 代码 
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Wh 
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自 定义 函数 GetDirectory 的 作用 是 返回 在 【浏览 文件 夹 】 对 话 框 中 用 户 所 选择 的 需要 查 
看 的 文件 夹 ， 然 后 使 用 变量 r 记录 用 户 在 该 对 话 框 中 进行 的 操作 ， 并 将 用 户 选择 的 结果 即 文 
件 夹 的 路 径 返 回调 用 它 的 显示 文件 列表 _Click 〈) 过 程 中 。 

@ 公 代码 输入 完毕 后 ， 关闭 VBA 代码 窗口 ,返回 Sheetl 工作 表 中 ， 切 换 到 【开发 工具 】 选 
项 卡 ， 在 【控件 】 选 项 组 中 单 击 【退出 设计 模式 】 按 钮 妓 ， 退 出 命令 按钮 的 设计 模式 。 然 后 单 击 

【显示 文件 列表 】 按钮， 系统 就 会 自动 弹出 【浏览 文件 来 】 对 话 框 ， 如 图 15-6 所 示 。 


A B C D E F © H EE 


1 

2 

3 E 
生 

| 显示 文件 列表 

下 

8 


HM] Sheetl -Sheet2 2 Sheet9 28 EN 
15-6 【浏览 文件 夹 】 对 话 框 
@ 副 在 该 对 话 框 的 列表 框 中 选择 查看 的 文件 夹 ， 如 图 15-7 所 示 。 


显示 文件 列表 


19 [3 


15-7 选择 要 显示 文件 列表 的 文件 路 径 
@ 昌 选择 完毕 后 ， 单 击 【 确 定 】 按 钮 即 可 显示 要 查看 文件 的 结果 列表 ， 如 图 15-8 所 示 。 
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1 
文件 列表 

3 

生 | 文件 名 称 大 小 ”修改 日 期 

5 Blue hills.jpg 28 FB 2008-4-15 9:00 
6 Bsa039. jpe 21 KB 2005-8-4 21:08 
7 BS9050. 20 KB 2005-8-4 21:08 
8 BS9064. 24 KE 2005-8-4 21:08 
9 BS9068. 19 KB 2005-8-4 21:08 
10 BS9070. 23 EB 2005-8-4 21:08 
11 |BS9079, 25 KB 2005-8-4 21:08 
12 |BS9084. 了 27 EB 2005-8-4 21:08 本 
13 BS9092. 22 EB 2005-8-4 21:08 
14 |BS9097. jpg 24 EB 2005-8-4 21:08 
15 |c_1366_768_2736. jpg 243 KB 2011-10-15 20:31 
16 |Sunset. jpg 70 KB 2008-4-15 9:00 
17 Water lilies. jpg 82 KB 2008-4-15 9:00 
18 Winter. jpg 104 KB 2008-4-15 9:00 
19 xiongy. jpg 811 KB 2011-8-20 9:42 
20 未 命名 . ]pg 50 FB 2011-8-21 17:02 
21 


图 15-8 显示 要 查看 的 结果 列表 
@ 色 再 一 次 单 击 【 显 示 文件 列表 】 按 钮 ， 在 打开 的 【浏览 文件 夹 】 对 话 框 中 选择 另 一 个 文件 
夹 ， 如 图 15-9 所 示 。 


由 -< 本 地 磁盘 0:) 
日 < 本地 磁盘 人 E:) 
OD ook 
由 回 code book 
刁 亚 
BO Javsstady 


图 15-9 选择 另 一 个 文件 夹 
【和 确定】 按钮 即 可 得 到 所 选 文件 的 列表 显示 ， 如 图 15-10 所 示 。 


A 下 D 到 i 

画 引 本 门 4 
2 显示 文件 列表 i 
3 3 
生 | 文件 各 称 文件 类 型 大 小 修改 日 期 : i 
“51CTO 下 载 -PPT 密 码 破解 . rer WinRAE 顾 绾 文件 2004 KB 2011-10-19 21: E 
6 lettexperinent. rar WinRAR 后 纺 文件 1011 KB 2011-7-20 ?+ a 
1 easyllule-Beta-Setup. exe 应 用 程序 4395 KB 2011-6-24 8 4 
8 Firefox-setup. ere 应 用 程序 624 EB 2011-6-22 1¢: i : 
9 FunshionInstall. exe 应 用 程序 5215 KB 2011-12-5 19 $4 
10 GooglePinyinInstaller. exe ”应 用 程序 12281 KB 2011-8-15 9 

11 jinst. exe 应 用 程序 409 EB 2011-6-28 21 

12 Install_WLIcsscngcr. cxc 应 用 程序 9594 KB 2011-7-13 16: 

13 iTunesSetup2.exe 应 用 程序 78978 KB 

1 knplayers. rip WinRAR ZIP 压缩 文件 11847 KB 2011-7-2 10: 

15 kuwosetup. exe 应 用 程序 9638 KB 2011-7-10 8 

18 NPlayer_all_setup. exe 应 用 程序 14380 KB 

17 jnavi cat091_mysql_cs. exe 应 用 程序 15120 KB 

18 |0f 人 ce2003_3inl_aaplayboy_xp91YinRAE 压 绾 文件 54389 KE 

19 |pipl_459, exe 应 用 程序 6469 EB 2011-8-13 

20 plantsvszonbies. zip WinRAR ZTP 压缩 文件 33390 KB 2011-11-29 

21 QQ2011. exe 应 用 程序 43170 KB 2011-11-29 

22 |sky123MiniPE_wwy. xp500. con. rarWirRhB 压缩 文件 47194 EB 2011-6-29 

23 sogou_pinyin_60a. exe 应 用 程序 19759 RE 2011-6-22 

2 The¥orld exe 应 用 程序 1606 KB 

MA VM sheetl heetd hee Oh 本 


图 15-10 显示 所 选 文件 的 列表 结果 
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在 两 次 的 结果 对 比 中 可 以 发 现 ， 在 生成 新 的 文件 列表 之 前 系统 总 是 首先 删除 工作 表 中 的 
原 有 记录 ， 然 后 再 将 找到 的 新 记录 显示 在 工作 表 中 。 


1 使 用 FileDialog 对 象 显示 文件 列表 


FileDialog 对 象 是 Microsoft Office 对 象 中 的 一 个 成 员 ， 该 对 象 的 Show 方法 可 以 显示 
并 选择 文件 夹 下 的 文件 ， 使 用 AllowMultiSelect 属性 可 以 同时 选择 多 个 文件 。 
使 用 FileDialog 对 象 显示 并 选择 指定 文件 夹 中 的 文件 ， 具 体操 作 步 又 如 下 。 


@ 央 新 建 一 个 空白 工作 簿 ， 在 Sheetl 工作 表 中 切换 到 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 
项 组 中 的 【插入 】 下 拉 列 表 中 单 击 【 按 钮 】 按 钮 到 ( 窗 体 控件 ) ， 在 Sheetl 工作 表 中 添加 一 个 名 
为 “按钮 1 ”的 窗 体 按钮 ， 此 时 系统 将 自动 弹出 【指定 宏 】 对话 框 ， 如 图 15-11 所 示 。 


| 扫地 1LCliew 


位 置 和 )， | 所 有 打开 的 工作 湾 
说 明 


图 15-11 【指定 宏 】 对 话 框 
@ 到 在 该 对 话 框 中 单 击 【 新 建 】 按 钮 ， 打开 VBA 代码 窗口 ， 此 时 系统 将 自动 在 该 项 目 工程 
中 添加 一 个 名 为 “模块 1 ”的 模块 ， 并 在 该 模块 代码 中 自动 出 现 “ 按 钮 1 ”的 单 击 事件 处 理 程序 代 
码 框架 ， 如 图 15-12 所 示 。 


Et 


15-12 ”按钮 1 的 单 击 事件 处 理 程序 框架 


@ 闻 | 在 模块 代码 窗口 中 添加 下 面 的 程序 代码 


Sub 按钮 1 Click() 
Dim message As String 
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Dim directory As String, s As String 
Dim row As Long, i As Long 

Dim fs As Object 

row = 4 

Cells.ClearContents "清除 工作 表 中 的 原 有 内 容 
Cells (row，1) = "文件 名 称 " 

Cells (row，2) = "文件 大 小 " 

Cells (row，3) = "文件 类 型 " 

Cells (row，4) = "修改 日 期 " 


由 


Range ("A4:D4") .Font .Name = "楷体 GB2312" 
Range ("A4:D4") .Font.Size = 14 
Range ("A4:D4") .Font.Bold = True 


row = row+1 


Dim fd As FileDialog 
Set fd = Application.FileDialog (msoFileDialogFilePicker) 
Dim vrtSelectedItem As Variant 
With fd 
.AllowMultiSelect = True 
If .Show = -1 Then 
For Each vrtSelectedItem In .SelectedItems 
Set fs = CreateObject ("Scripting.FileSystemObject") 
Cells(row, 1) = vrtSelectedItem 
If FileLen(vrtSelectedItem) = 0 Then “，' 获 取 文 件 大 小 
Cells(row, 2) = "0 KB" 
Else 
Cells (row, 2) =Trim(Str (Int (FileLen (vrtSelectedItem) / 1024) 
SY 
End If 
Cells (row，3) = fs.GetFile (vrtSelectedItem) .TYPe ' 获 取 文 件 的 类 型 
Cells (row，4) = FileDateTime (vrtSelectedItem) "获取 文件 的 修改 


"日 期 和 时 间 
row = row+1 
Next vrtSelectedItem 
Else 
End If 
End With 


§ 
: 
: 
| 
: 
| 
: 
| 
| 
. 
3 
i 
| 
: 


Set fd = Nothing 


Columns ("A:D") .EntireColumn.AutoFit 
End Sub 


Ia 册 返回 Sheetl 工作 表 中 ， 将 添加 的 窗 体 按钮 重 命名 为 “显示 文件 列表 。 然 后 单 击 【 显 示 
文件 列表 】 按 钮 ， 系 统 就 会 自动 弹出 【浏览 】 对 话 框 ， 如 图 15-13 所 示 ， 从 中 选择 要 查看 的 文件 ， 
按 Ctrl 键 可 以 同时 选中 多 个 文件 ， 如 图 15-14 所 示 。 
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查找 范围 | 旺 我 的 电 启 

前 文 | | 司 kaninistrater 的 文档 
区 已 # 李 六 站 
国 师 np-an Ma (6) 
[< 本地 磁盘 下 :) 
辐 到 文档 | < 本地 开 名 下:) 
一 | | 二 本 地 辜 生 0) 
旺 09 电脑 | i C) 
LI 


文人 | 
文件 类 型 TE)。 | 所 有 文件 0 *) 


15-13 【浏览 】 对 话 框 


[EEL 
eou pinyin 60v exe 
国 selzainif_w msm cm ror 


车 ; 


Direfor-setup. ee 


Hexperimtnt rar 


CI 


15-14 选中 要 查看 的 多 个 文件 
@ 加 单 击 【 和 确定 】 按 钮 即 可 得 到 所 查看 的 多 个 文件 的 属性 信息 ， 如 图 15-15 所 示 。 


D4 多- 到 | 修改 日 期 
入 B 加 D 

可 显示 文件 列表 

3 

4 | 文件 名 称 文件 大 小 文件 类 型 
5 _E:\ 常 用 软件 \GooglePinyinInstaller.exe “12281 KB 应 用 程序 2011-8-15 9:08 
6 _E:\ 常 用 软件 \easyjtule-Beta-Setup. exe 4395 KB 应 用 程序 2011-6-24 8:49 
了 _E:\ 常 用 软件 \QQ2011. exe 43170 KB ”应 用 程序 2011-11-29 17:31 
8_E:\ 常 用 软件 \pipi_459. exe 6469 KB 应 用 程序 2011-8-13 18:43 
9 E:\ 常 用 软件 \kuwosetup. exe 9638 KB 应 用 程序 

10 E:\ 常 用 软件 \knplayers. zip 11847 KB WinRAR ZIP 压缩 文件 

11 E:\ 常 用 软件 \iTunesSetup2. exe 78978 KB ”应 用 程序 

12 JE:\ 常 用 软件 \Instal1_WYLIlessenger. exe 9594 KB 应 用 程序 

13 

14 


15-15 显示 所 查看 的 多 个 文件 的 属性 信息 
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从 结果 可 以 看 出 , 使 用 FileDialog 对 象 返回 的 文件 名 称 包 含 文件 所 在 的 路 径 , 这 是 与 使 
用 VBA 函数 功能 所 不 同 的 地 方 。 


WE- 15.2 
; 将 文本 导入 工作 表 


使 用 VBA 读 写 文本 文件 的 基本 步骤 是 ， 首 先 使 用 Open 语句 打开 文件 ， 然 后 使 用 Seek 
函数 指定 文件 中 的 位 置 ， 接 着 从 文件 中 读 取 数据 或 将 数据 写 入 文件 ， 最 后 使 用 Close 语句 关 
闭 文件 。 

将 数据 导入 到 工作 表 中 可 分 为 导入 某 个 特定 的 单元 格 和 导入 某 个 单元 格 区 域 两 种 情况 。 


| 将 文本 导入 单元 格 


将 文本 文件 中 的 内 容 导 入 一 个 单元 格 ， 具 体操 作 步 又 如 下 。 


@ 凤 首先 编写 一 个 文本 数据 表 ， 并 保存 在 D 盘 的 。 [ne ee Was sn 
Employee 文件 夹 中 ， 将 其 命名 为 “员工 信息 .txt”， 其 内 容 。 | 中 
如 图 15-16 所 示 。 2 

[加 新 建 一 个 空白 工作 得 ,并 将 其 保存 为 “将 文本 导 
入 工作 表 -， 然 后 将 Sheetl 工作 表 保存 为 “导入 员工 信息 
表 ， 如 图 15-17 所 示 。 

国 | 加 号 -= 深 文 本 导入 工作 可 xdex - Microsoft Excel = 日 名 


| 
有 "1 -三 = 国共 za EC 


图 15-16 文本 数据 表 


导入 员工 信息 卖 ASEo oD oecty 2 


IE 
Er ON 


图 15-17 新 建 工作 敌 


EEEBEs ean.| [a .s sh 
| 品 
回 昌 上 
, 

吕 

加 

因 

5S 

四 

攻 

圳 
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@ 旬 在 “导入 员工 信息 表 ” 工 作 表 中 ,切换 到 【开发 工具 】 选 项 卡 ， 单 击 【 控 件 】 选 项 组 


十 


的 Visual Basic 按钮 ， 打开 VBA 代码 编辑 窗口 。 双 击 进 入 “导入 员工 信息 表 ” 工 作 表 的 代码 编辑 


窗口 ， 输 入 下 面 的 程序 代码 ， 如 图 15-18 所 示 。 


Private Sub Worksheet Activate() 

Dim i As Long 

Dim Data As Variant 

Open " D:\Employee\ 员 工 信 息 .txt " For Input Rs #1 

i=0 

Do Until EOF(1) 
Line Input #1，Data “' 读 取 完 整 的 一 行 数据 
ActiveCell.Offset (i, 0) = Data 
ee 

Loop 

Close #1 

End Sub 


osoft Visual Basic for Applications - 将 文本 导入 工作 表 . 1zm 


(将 文本 导入 工作 表 . x1ss) 


辐 回 司 


Excel 对 象 
(导入 员工 信息 表 ) 


int 
is \Enployee\ 员 工 全息 . txt” For Input As 机 
De Wntil PDF (1) = 

Line Input 其 ，Data “ 读 取 元 整 的 一 行 数 据 

ActiveCell Offset fi，0) = Dats 

i=itl 


Di spl ayP ageBr eakes 
Di spl ayRi ehtToLeft 
Enabl eAutoFilter 
Enabl eCal cul ation 
EnableFornatConditionsC True 
Enabl oOutlining False 
Palse 
0 ~ xlloRestrictions 


导入 员工 信息 表 


EE 
-1 ~ x1SheetVisible 


图 15-18 输入 代码 


罗 顷 在 这 段 代码 中 首先 使 用 Open 方法 按照 路 径 “D:\Employee\ 员 工 信 息 .txt” 找 到 “员工 信 
息 .txt” 文 本 文件 ， 并 指定 其 编号 为 1。 这 里 的 文件 编号 的 指定 是 任意 的 ， 用 户 可 以 将 文件 编号 指 


定 为 其 他 数值 ， 只 要 在 使 用 文件 编号 引用 文件 时 保持 该 编号 的 统一 性 即 可 。 


在 Do Until-Loop 循环 语句 中 使 用 语句 “Line Input #” 逐 行 读 取 该 文本 文件 中 的 数据 ， 并 
将 每 行 数据 输入 到 活动 单元 格 开始 的 单元 格 中 。 最 后 使 用 Close 方法 关闭 该 文本 文件 。 
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【提示 】 如 果 “ 员 工 信 息 .txt” 文 件 的 路 径 和 上 述 代 码 中 的 路 径 
不 一 致 ， 程 序 运行 将 会 出 错 。 要 想 快速 查看 “员工 信息 .txt” 
文件 的 路 径 ， 用 户 可 以 右 击 该 “员工 信息 .txt” 文 本 文件 ， 在 已 ER 
弹出 的 快捷 菜单 中 选择 【属性 】 菜 单项 ， 打 开 【 员 工 信 息 -txt Sh 


车 记事 本 


对 话 框 ， 在 【常规 】 选 项 卡 中 的 【位置 】 项 中 用 户 可 以 看 到 该 二 
文本 文件 所 在 位 置 的 完整 路 径 , 如 图 15-19 所 示 ， 然 后 使 用 这 FCF 
个 完整 路 径 蔡 换 上 述 代 码 中 的 数据 路 径 即 可 。 和 


2012 年 3 月 3 日 ，14:58:50 
2012 年 3 月 3 日 ，14:56:50 
2012 年 3 月 3 日 ，14:56:50 


口 呐 素 史 |。 口 陷 闻 0) 


图 15-19 属性 对 话 框 


在 上 述 代码 中 还 用 到 了 EOF 函数 , 该 函数 的 作用 是 返回 一 个 整 型 数值 ,用 来 表明 是 否 已 
经 到 达 打 开 的 文件 的 末尾 。 当 到 达 文 件 末尾 时 ， 返 回 值 为 True。 该 函数 的 语法 格式 为 : 
EOF (filenumber) 


其 中 必要 的 参数 filenumber 是 一 个 包含 任何 有 效 文件 号 的 整 型 数值 。 在 读 写 文件 的 操作 
中 使 用 EOF 函数 可 以 避免 出 现 因 试 图 在 文件 末尾 进行 输入 而 产生 的 错误 


@ 加 返回 “导入 员工 信息 表 ” 工 作 表 中 ， 首 先 选中 一 个 单元 格 ， 这 里 选中 Al 单元 格 ， 然 后 
打开 VBA 代码 窗口 , 从 中 选择 【运行 】 > 【运行 子 过 程 /用 户 窗 体 】 菜 单项 , 即 可 将 “员工 信息 .txt” 
文本 文件 中 的 数据 存放 在 以 活动 单元 格 Al 开始 的 单元 格 中 ， 如 图 15-20 所 示 。 


国 | 上 9.elr 将 文 本 导入 工作 要 xism - Microsoft Excel a 
En 插入 页面 布局 ”公式 | 部 | 古风。 视 加 。 开发 工具 j 雪 大 A 各 一句 亚 


多 建 昌 
四 Be 1 国 | 了 EE ae 
了 到 ”| 全 部 R 新 让 =。 7 | 排序 
HER。 ce 多 六 | 允 
EE Ei0 和 过 
Bl 区 -= 者 Sa 基本 工资 , 岗位 工资 ,补助 | 
E F t H 于 | a 
| 


A B 

二 出 信 工 宙 补助 
2 刘 峰 , 1800, 300, 150 

华为 翡 , 1600, 200, 150 

毕 福 , 1600, 200, 150 

王政 , 1600, 200, 150 

随 风 飞 , 1700, 250, 150 

占 元 旭 , 1800, 300, 150 

刘 普 , 1500, 150, 150 

9 赵 瑞 , 1600, 200, 150 


15-20 ”导入 “员工 信息 .txt” 的 文本 内 容 
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上 述 VBA 过 程 运行 的 结果 是 将 “员工 信息 ”文本 文件 中 的 每 一 行 数 据 存放 在 同一 个 单 
元 格 中 。 一 般 情 况 下 这 个 过 程 并 不 是 非常 有 用 。 为 此 ， 用 户 可 以 使 用 Excel 中 的 【数据 】 选 
项 卡 中 的 【分 列 】 按 钮 ， 将 数据 分 列 在 同一 行 的 各 个 单元 格 中 。 


@@j 选中 A1:A9 单元 格 区域 ， 如 图 15-21 所 示 ， 然后 切换 到 【数据 】 选 项 卡 ， 单 击 【 数 据 工 
具 】 选 项 组 中 的 【分 列 】 按 钮 ， 即 可 打开 【文本 分 列 向 导 - 第 1 步 】 对 话 框 ， 在 【原始 数据 类 型 ] 
选项 区 中 选中 【分 隔 符号 】 单 选 按钮 ， 如 图 15-22 所 示 。 


将 文本 导入 工作 表 xism - Microsoft Excel 口 回 器 
页 四 布局 公式 实证 两 ”视图 开发 I 只 tN 要 硕 和 和 一 句 双 


3 
py 承 清 = 四国 全 得 - 寻 
和 4 国税 , Es3] Es a 中 取 测 滞 合 "了 
ms 受到 E> B 


ass sn we 
歼 高 到 本 复 项 区 ~ 租 

了 排 序 和 访 远 数 肥 工具 

在 | 员工 姓名 , 基本 工资 , 岗位 工资 ,补助 

站 


| 2CS 


30d, 300, 150 
ho, 200, 150 


15-21 选中 Al:A9 单元 格 区 域 


文本 分 列 向 导 - 第 1 步 , 共 3 步 

文本 分 列 向 导 判定 您 的 数据 具有 分 卫 符 。 

若 一 切 设置 无 误 ， 请 单 击 “ 下 一 步 ”， 否 则 请 选择 合适 的 数据 类 型 

原始 数据 类 型 

请 亿 择 最 合适 的 文件 类 型 
加 四 大 符 导 四] - 用 分 隔 字 符 ,加 到 号 或 制 表 符 分 隔 每 个 字段 


[下 -上 op >] (Caso 


15-22 【文本 分 列 向 导 - 第 1 步 】 对 话 框 


@ 副 单 击 【 下 一 步 】 按 钮 ， 打 开 【 文 本 分 列 向 导 - 第 2 步 】 对 话 框 ， 在 【分 隔 符号 】 选 项 
中 选中 【逗号 】 复 选 框 ， 如 图 15-23 所 示 。 


风 
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文本 分 列 向 导 - 第 2 步 , 共 3 步 
请 设置 分 列 粕 据 所 包含 的 分 隔 符号 。 在 预览 窗口 内 可 看 到 分 列 的 效果 。 
分 隔 符号 


回 rab 键 中 

口 人 3 吕 口 连 分隔 符 号 视 为 单个 处 理 四) 
文本 识别 符 :| 同 
Do 


数据 预览 E) 


工 姓名 工本 工资 岗位 工资 耻 助 
i 50 
为 慧 600 50 
福 600 50 


[取消 


15-23 【文本 分 列 向 导 - 第 2 步 】 对 话 框 
@ 则 单 击 【下 一 步 】 按 钮 ， 打开 【文本 分 列 向 导 -第 3 步 】 对 话 框 ,保持 该 对 话 框 中 的 默认 设 
置 不 变 ， 如 图 15-24 所 示 。 
@g 单 击 【 完 成 】 按 钮 即 可 将 导入 的 文本 数据 进行 分 列 ， 如 图 15-25 所 示 。 


文本 分 列 向 导 - 第 3 步 ， 共 3 步 区 区 
全 月 此 屏 内 容 可 这 和 各 列 ， 并 设置 巩 姑 格式。 
收据 相 式 


加 常规 (@) 


38 1 i 
O BM, lw 四 [ET | 

〇 不 时 入 寺 列 例 过 ) 四 

目 村 区域) ， [SAS1 国 

数据 预 E) 


陶 ] [上 = 步 四 CE 
图 15-24 【文本 分 列 向 导 - 第 3 步 】 对 话 框 图 15-25 ”对 每 一 行 数据 进行 分 列 


区 将 文本 导入 单元 格 区 域 


将 文本 导入 单元 格 区 域 ， 具 体操 作 步 骤 如 下 。 


@ 册 双击 Sheet2 工作 表 ， 将 其 重 命名 为 “导入 员工 信息 表 2” 工 作 表 ， 切 换 到 【开发 工具 】 
选项 卡 ， 在 【控件 】 选 项 组 的 【插入 】 下 拉 列 表 中 单 击 【ActiveX 控件 】 组 中 的 【命令 按钮 】 按 
钮 型， 在 “导入 员工 信息 表 2” 工 作 表 中 添加 一 个 命令 按钮 ， 并 将 其 Caption 属性 值 修改 为 “ 导 
入 文本 数据 "， 如 图 15-26 所 示 。 
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Visual Basic 
加 蕊 项 
CommandButtonl I” ££ 
& B C 

1 
| 区 1 
| 3 
| 4 

5 

ie 

Er 

8 

9 

lo 

11 

| 12 

13 

14 

[15 

i16 

[17 

18 

1 319 

120 

| 21 

| 22 

123 

[导入 员工 信息 表 】 导 入 员工 信息 表 2 Sheet9 | 
EI | 转 回 四 loo% (> 六 

图 15-26 插入 命令 按钮 
@ 双 在 设计 模式 下 双击 【导入 文本 数据 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 在 代码 窗 


添加 下 面 的 代码 程序 ， 如 图 15-27 所 示 。 


Private Sub CommandButton1l _ Click() 

Dim Filename As String 

Dim x As Long，Y As Integer ' 相 对 于 活动 单元 格 的 偏 移 量 

Dim str As String, temp As String 

Dim Data As Variant 

Dim i As Integer 

On Error Resume Next ' 忽 略 错误 ， 执行 错误 语句 之 后 的 语句 

Filename = " D:\Employee\ 员 工 信 息 .txt " 

Open Filename For Input As #1 

If Err <> 0 Then 
MsgBox "无 法 找到 " & Filename, vbCritical, "ERROR" 
Exit Sub 

End If 


Application.ScreenUpdating = False "忽略 屏幕 刷新 
Do Until EOF(1) 
Line Input #1, Data 
For i = 1 To Len(Data) 
temp = Mid(Data，i，1) “获取 Data 中 的 第 i 个 字符 
If temp = "," Then "以 逗号 为 分 隔 符 
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RARctiveCel11.0ffset(x，yY) = str 


y=y+1 
Ft le 
Else 


str = str & temp 
If i = Len(Data) Then ' 文 本 文件 中 一 行 的 最 后 一 个 字符 
ActiveCell.Offset (x, y) = str 
于 
Exit For 
End If 
End If 
Next i 
y=0 
下 
Loop 
Close #1 ' 关 闭 文本 文件 
End Sub 


这 段 代 码 在 Do Until-Loop 循环 语句 中 使 用 了 For-Next 循环 控制 语句 逐个 字符 读 取 文 本 
文件 中 的 数据 ， 使 以 逗号 分 隔 的 每 个 数据 都 能 各 自 显示 在 一 个 单元 格 中 。 需 要 注意 的 是 ， 它 
不 能 处 理 包 含 喜 号 的 数据 。 

“On Error Resume Next” 的 作用 是 ee J 阶段 的 错误 时 ， 系 统 会 忽略 发 生 的 错 

不 修正 造成 错误 的 原因 ， 而 继续 执行 错误 语句 之 后 的 语句 。 


or Applications - 将 文本 导入 工作 表 .zlsa - [Sheet2 (代码 )] 
jw xa 袁 雪 中 视 轨 WV) 插入) 司 式 (O) 主 式 (D) 运 5(8) 工具 中 外接 但 和 至 DW 天 二 
cB WE 
LE meert [x] | [Ceoe ssa on! 司 [is 
rivete Sob Gormwmadorton lickO 
Fr tage 相对 于 活 元 的 人 了 明 


tp A 


后 训 汪 丘 之 后 和 9 
电工 信息 
as For TS As 


A 
I 人 hs 
Netox “RB) “ Filenme, whcritiewd, "ERROR 


Th Yorkies 


tenp 
玫 = Lathst 凶 Then “文本 文件 中 一 行 的 最 后 一个 字符 
tetivcell Dffset ge 习 = st 


Bt Tor 
ad I 


i 1 
人 Uete 和 “关闭 立 本 立 件 
Sb 


一 |= 后 
图 15-27 输入 按钮 响应 程序 


加 返回 到 “导入 员工 信息 表 2” 工 作 表 中 ， 单 击 【 控 件 】 选 项 组 中 的 【退出 设计 模式 】 按 
钮 图 退 出 命令 按钮 的 设计 模式 . 任意 选中 一 个 单元 格 , 这 里 选中 D10 单元 格 , 然后 单 击 【 导 入 文 
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本 数据 】 按 钮 ， 即 可 实现 将 数据 导入 到 以 活动 单元 格 开头 的 单元 格 区 域 中 ， 如 图 15-28 所 示 。 


A B 本 D E 下 5 也 


Dim 


10 员工 姓名 基本 工资 岗位 工资 补助 

2 刘 峰 1800 300 150 
12 华为 莫 1600 200 150 
13 毕 福 1600 200 150 
14 王政 1600 200 150 
15 所 1700 250 150 
16 占 元 但 1800 300 150 
17 刘 普 1500 150 150 
18 赵 瑞 1600 200 150 


图 15-28 导入 文本 数据 


【提示 】 导 入 文件 的 存放 路 径 , 应 根据 实际 情况 相应 地 调整 语句 :Filename =“D:\Employee\ 员 工 信 息 .txt”。 
否则 ， 在 单 击 【 导 入 文本 数据 〗 按 钮 时 会 弹出 如 图 15-29 所 示 的 错误 提示 信息 。 


ERROR 区 


@ 无 法 找到 EE VBnployee\ 员 工 信 息 .txt 


图 15-29 错误 提示 信息 


15.3 
导出 工作 表 中 的 内 容 


在 使 用 VBA 处 理 文件 的 过 程 中 ， 最 主要 的 还 是 处 理工 作 表 中 单元 格 区 域 的 内 容 。 下 面 
就 来 介绍 将 单元 格 区 域 中 的 内 容 分 别 导 出 到 TXT 文件 和 HTML 文件 的 方法 。 


15.3.1 导出 到 TXT 格式 的 文件 


TXT 格式 的 文件 即 文本 文件 ， 可 以 将 工作 表 中 所 选单 元 格 区 域 中 的 内 容 导 出 到 文本 文 
件 。 
导出 表单 内 容 到 文本 文件 ， 具 体操 作 步 又 如 下 : 


@ 乔 在 如 图 15-30 所 示 的 “导出 销售 表 1” 工 作 表 中 ， 切 换 到 【开发 工具 】 选 项 卡 ， 在 【 控 
件 】 选 项 组 的 【插入 】 下 拉 列 表 中 单 击 【ActiveX 控件 】 组 中 的 【命令 按钮 】 按 钮 型 ， 在 “导出 
销售 表 1 工作 表 中 添加 一 个 命令 按钮 , 并 将 其 Caption 属性 值 修改 为 “导出 区 域内 容 , 如 图 15-31 
所 示 。 
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Su 


ET 


区 六 向 安 


15-30 “导出 销售 表 1” 工 作 表 中 的 数据 图 15-31 插入 命令 按钮 


@g 在 设计 模式 下 双击 【导出 区 域内 容 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ,添加 下 面 的 代 
码 程 序 ， 如 图 15-32 所 示 。 


Private Sub CommandButton]1 Click() 
Dim rows As Long, cols As Integer 
Dim i As Long, j As Integer 
Dim tx As Variant 
Dim str As String 
Dim fs As Object 
rows = Selection.rows.Count  ”' 所 选区 域 的 行 数 
cols = Selection.Columns.Count ' 所 选区 域 的 列 数 
Set fs = CreateObject ("Scripting.FileSystemObject") 
' 创 建文 本 文件 ， 若 存在 则 覆盖 原 有 文件 
Set tx = fs.CreateTextFile("D:\Employee\ 导 出 销售 数据 .txt"，True) 
For i= 1 To rows 

SE 

For j= 1 To cols 

str = str & Selection.Cells(i, j) & vbTab 


' 每 行 单元 格 内 容 使 用 Tab 符号 连接 成 字符 串 

Next jj 

tx.WriteLine str ' 写 入 数据 ， 并 添加 一 个 换行 符 
Next i 
End Sub 
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伪 时 crosoft Visual Basic for hpplications - 导出 工作 表 -xlsa - [Sheet1 (代码 )] 攻占 | 国 
她 4 四 篇 乌 昌 视图) 插入 四 ”格式 (QO) 请 坛 [D) 运行 QR) 工具 中 ”外接 程序 (A) 窗口 WV) 帮助 (H) 


国 和 @- 日 9 8 bP 有 站 有 办 宁 泡 关 @ 行 10. 列 49 
站 ER [x] | [Eeetteal 可 [Click 
Private Sub Commandputtonl_ ClickO 
EEC 
日 - 盒 旺 crosoeft Excel 对 得 tx ee 
图] sheetl (导出 销售 表 1) I wi da Siring 
Dim fs As Object 
十] sheet2 (导出 销售 表 2) rows = Selection rows.Count 
Sheet3 (导出 销售 表 3) et te ete 
ThisTerkbock Bet £5 = GreateObjset (Seripting NA ok 
人 
了 or Ey = 3 Te rows 


这 Lae 


ols 
tr 月 Selection Cells(i, j) & vbTab 
A b 符 号 连接 成 字符 第 


ss hteLine str ， 写 和 数据 ， 并 二 加 一 个 换行 符 


15-32 ”输入 按钮 响应 代码 


这 段 代 码 的 作用 是 首先 获得 用 户 所 选单 元 格 区 域 的 行 数 和 列 数 , 然后 使 用 Create TextFile 
方法 创建 文本 文件 。Create TextFile 方法 的 语法 格式 为 : 


Object.Create TextFile(filename[,overwrite[,unicode]]) 


参数 filename 为 必需 项 ， 指 明 要 创建 的 文件 的 完整 路 径 。 参 数 overwrite 为 可 选项 ,布尔 
类 型 ， 指 明 是 否 覆 盖 原 有 文件 ， 为 True 时 覆盖 ， 为 False 时 不 覆盖 。 参 数 Unicode 为 可 选项 ， 
布尔 类 型 , 指明 文件 是 以 何 种 方式 创建 , 为 True 时 以 Unicode 方式 创建 , 为 False 时 以 ASCII 
方式 创建 。 

代码 中 使 用 的 是 WriteLine 方法 写 入 数据 ， 但 会 自动 在 写 入 的 数据 之 后 添加 一 个 换行 符 。 
如 果 写 入 的 数据 为 空 ， 只 输入 一 个 换行 符 即 可 。 


上 @ 币 返回 “导出 销售 表 1” 工 作 表 中 ， 单 击 【 控 件 】 选 项 组 中 的 【退出 设计 模式 】 按 钮 图 退 
出 命令 按钮 的 设计 模式 .选中 一 个 单元 格 区 域 ， 这 里 选择 A2:E15 单元 格 区 域 ， 然 后 单 击 【 导 出 
所 选区 域内 容 】 按 钮 ， 系 统 则 自动 在 指定 位 置 创 建 一 个 名 为 “导出 销售 数据 .txt” 的 文本 文件 , 打 
开 该 文件 ， 内 容 显 示 如 图 15-33 所 示 。 
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本 导出 销售 数据 - txt - 记事 本 


文件 中 编辑 E) 格式 中 碍 看 (0 帮助 0 
Stella 


图 15-33 导出 的 内 容 


15.3.2 导出 到 HTML 格式 的 文件 


HTML 格式 的 文件 仅仅 是 包含 特殊 的 格式 化 标签 的 文本 文件 ， 这 些 格 式 化 的 标签 通常 用 
来 描述 数据 信息 是 如 何 显示 在 浏览 器 中 的 。 将 单元 格 区 域 中 的 内 容 导 出 到 HTML 格式 的 文件 
就 是 将 单元 格 区 域 的 内 容 保 存 为 网 页 格式 。 在 Excel 中 可 以 使 用 菜单 命令 和 VBA 过 程 两 种 方 
法 将 单元 格 区 域 的 内 容 保 存 为 网 页 格式 。 
1. 使 用 Excel 菜单 命令 

使 用 Excel 菜单 命令 将 所 选单 元 格 区 域 中 的 内 容 保存 为 网 页 文件 ， 具 体操 作 步 又 如 下 。 


@ 册 打开 要 导出 的 数据 文件 ,如 图 15-34 所 示 。 在 “导出 销售 表 2” 工 作 表 中 选择 B2:F23 单 
元 格 区 域 ， 然 后 选择 【文件 】 > 【另存 为 】 菜 单 命 令 ， 即 可 打开 【另存 为 】 对 话 框 。 


A B i Dp T E 下 6 


MW 《HW| 导 由 销 伙 表 1 ] 导出 销售 表 2 导出 销售 表 3 名 4 » 


图 15-34 要 导出 的 Excel 文 件 
@ 到 从 中 选择 保存 文件 的 位 置 ， 在 【文件 名 】 文 本 框 中 输入 “导出 工作 表 . htm ， 在 【保存 
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类 型 】 下 拉 列 表 中 选择 “网 页 ”， 并 在 【保存 】 选 项 组 中 选择 【选择 (E) :$B$2:$F$23】 单 选 按钮 ， 
如 图 15-35 所 示 ， 设 置 完 之 后 ， 单 击 【 保 存 】 按 钮 ， 即 可 完成 HTML 文件 的 导出 。 

@ 设置 完毕 后 ， 如 果 需 要 修改 发 布 的 内 容 和 形式 ， 可 以 单 击 【 发 布 】 按 钮 ， 打开 【发 布 为 
网 页 】 对 话 框 ， 从 中 可 以 修改 发 布 内 容 和 发 布 形式 。 例 如 ， 可 以 修改 选择 的 区 域 、 发 布 文件 的 位 
置 和 名 称 (这 里 修改 发 布 文件 的 名 称 为 page. mht) 等 ， 如 图 15-36 所 示 。 
- 4 发 布 为 网 页 
发 布 内 容 


选择 人) : [单元 格 区 域 
= 导出 销售 表 21$8$2 $F$23 


发 布 形式 


标题 
文件 各 中 [EVDOOK\wba\ 新 建文 件 天 \ 弟 15 音 \Paee_nht 
口 在 等 次 保存 工 全 时 自动 重新 发 布 ) 


WN 


四 
mm DerTmn Onn Ww 


CE 


口 在 浏览 器 中 打开 已 发 布 网 页 D) 


图 15-35 【另存 为 】 对 话 框 图 15-36 【发 布 为 网 页 】 对 话 框 


多 修改 完毕 后 ， 单 击 【 发 布 】 按 钮 ， 即 可 将 选择 的 单元 格 区 域内 容 保 存 为 HTML 格式 的 
网 页 。 打开 “导出 工作 表 .htm” 文 件 ， 显 示 如 图 15-37 所 示 。 


3 国 Woowha WW 允 伯 天 (15 最 \ 导 出 工 作 各 .btn EB 
文件 E) 多 接 引 ) 查看 人 Y) 尿检 下 ) 工具 G) 大 肋 加 
富安。 大 E ookiwbs 新 文件 天 (第 15 重 \S 出 工作 于 hi " 国 多 -DMD 人 IAD. 


西城 区 3803: 3 4469, 465 
尝 文 区 3 


图 15-37 导出 的 HTML 文件 效果 


2. 使 用 VBA 过程 


使 用 VBA 过 程 将 所 选单 元 格 导 出 到 HTML 文件 中 的 方法 有 一 个 独特 的 优点 ， 即 不 产生 
元 长 的 HTML 代码 。 但 是 这 种 方法 也 有 不 足 之 处 ， 那 就 是 不 能 处 理 合并 的 单元 格 、 不 能 维护 
原 有 单元 格格 式 。 
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使 用 VBA 过 程 导出 HTML 文件 的 ， 具 体操 作 步 骤 如 下 。 


@ 遇 在 打开 的 “导出 销售 表 3” 工 作 表 中 ， 切 换 到 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 项 组 
的 【插入 】 下 拉 列 表 中 单 击 【ActiveX 控件 】 组 中 的 【命令 按钮 】 按 钮 到， 在 “导出 销售 表 3” 
工作 表 中 添加 一 个 命令 按钮 ， 并 将 其 Caption 属性 值 修改 为 “导出 为 网 页 ， 如 图 15-38 所 示 。 


国 | 加 -el> 日 名 
zt 是 
价 加 3 学 
Visual Basic j 莉 项 COM jn 项 
代码 胃 项 
ConnandButtonl 天 | =ENBED(’Forns. Connand i 
A :| 
2 i: 
3 
4 
5 
6 | .innie. 138038+++++ 
| |_ 潜 3 .Yolanda 138039+*++#+* 
8 0 6 
9 0 ~ ollousePoi 
10 0 QWone) 
11 
2 
13 
14 
15 
16 
17 
18 
19 | 河西 区 ， Mirian 1 138053kktt# 
20 hhT 13RO54++++* = 
TS 导出 销售 来 3 < 人 gil 
L | 忆 | | 


图 15-38 插入 命令 按钮 


@ 到 在 设计 模式 下 双击 【导出 为 网 页 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 添 加 下 面 的 程序 
代码 ， 如 图 15-39 所 示 。 


Private Sub CommandButton1l Click() 
Dim Filename As Variant 
Dim templ As String, temp2 As String 
Dim str As String 
Dim i As Long, j As Integer 
Filename = Application.GetSaveAsFilename (InitialFileName:="HTML.htm", 
fileFilter:="HTML Files(*.htm), *.htm") 
If Filename = False Then Exit Sub 
'Open Filename For Output As #1 
Open Filename For Append As #1 
Print #1，"<TABLE BORDER=1 CELLPADDING=3>" ' 生 成 HTML 标签 
For i = 1 To Selection.rows.Count 
Print #1 "<TR>™ 
For j = 1 To Selection.Columns.Count ' 单 元 格 中 的 内 容 居 右 
templ = "<TD ALIGN=RIGHT>" 
temp2 = "</TD>" 


327 


ERIEITRZI 和 门 与 立 | 上 


If Selection.Cells(i，j) .Font.Bold Then ' 若 原 字 体 加 粗 ， 则 在 网 页 中 仍 加 粗 
templ = templ & "<B>" 
temp2 = "</B>" & temp2 
End If 
str = Selection.Cells (i，j) “获取 单元 格 内 容 
Print #1, templ & str & temp2 
Next j 
Lo 
Next i 
Print #1, "</TABLE>" 
Close #1 
MsgBox "已 将 所 选择 的 " & Selection.Count & "个 单元 格 数据 导出 到 " & Filename & " 文 
er 
End Sub 


运行 这 段 代码 的 前 提 是 用 户 要 确定 想 要 导出 的 单元 格 区 域 ， 然 后 在 程序 运行 中 所 打开 的 
对 话 框 中 修改 HTML 文件 保存 的 名 称 和 路 径 。 接 下 来 在 双重 For-Next 循环 控制 语句 中 生成 相 
应 的 HTML 标签 ， 并 写 数 据 到 这 个 HTML 文件 中 。 最 后 关闭 这 个 HTML 文件 ， 同 时 系统 还 
会 自动 弹出 一 个 信息 汇总 的 对 话 框 。 


信和 icrosoft Visual Basic for Applications - 导出 工作 表 -zlsa [设计 ] - [sheet3... 甘 | 全 | 区 | 


文件 四 。 菇 纺 人 ) 视图 (V) 插入 四 个 式 (Q) 涯 式 (D) 运行 (R) 工具 中 外 接 程序 A) 音 口 WI 帮助 出) 
-Sx 
得 -回头 忆 训 拆 9 Ma 国王 于 安 关 自行 14. 列 21 


工程 - WhAProject [xj [Comm andButtonl 了 ] Iclick 


Private Sub CommandButtonl_ClickO 
路 YBAProject 《导出 工作 表 . zlss) lis Dlanane A Yariaa4 
晤 全 Microsoft Exeel 对 象 Dim templ As String, tenp2 As String 
厂 sheet! (导出 销售 表 1) Din str Ms Striag 
痢 ] sh.t2 (导出 销售 表 2) Din i As Long, j As Integer 
sheet3 (导出 销售 表 3) Filenane = Application GetSuveAsFilenane TnitialFilelNane:="HINL ht 
Thi syorkbook IE Filenwe = False Then Exit Sub 
Open Filenane For Output As #1 
Dpen Filenane For Append As #1 
Print 再 ,，“ 人 TABLE BORDER=1 CELLPADDING=3>” “生成 TWL 标 答 
For i = 1 To Selection rows.Count 
Print #1, 
了 or j = 1 To Selection Colunns. Count “单元 格 中 的 内 容 居 右 
= "CD ALIGNEHTGHT>” 
tenp2 = "YTD>” 
IE Selection. Cells (Gj),Font. Bold Then “车 原 字体 加 粗 , 则 
tenpl = tenpl A “B>” 
tenp2 = “</B》” & tenp2 
End If 
str = Selection Cells(i, 了 “获取 单元 格 内 容 
et eae A nin Wem 
Text 
Pisa, “WTR 
Next i 
Print HH, “TABLE>” 
Close 再 A 
er 已 格 所 寺 拓 的 入 Selection Count &“ 个 单元 格 数据 导出 到 “4 
End Sul 


si 


15-39 ”添加 命令 按钮 响应 程序 


@ 到 返回 “导出 销售 表 3” 工 作 表 中 , 单 击 【 控 件 】 选 项 组 中 的 【退出 设计 模式 】 按 钮 而 退 

命令 按钮 的 设计 模式 。 选 择 B3:F25 单元 格 区 域 , 然 后 单 击 【 导 出 为 网 页 】 按 钮 ， 即 可 打开 【 另 

存 为 】 对 话 框 , 从 中 选择 文件 保存 的 位 置 , 在 【文件 名 ] 文本 框 中 输入 “VBA 导出 页 面 文件 .htm”， 
保存 类 型 为 HTML Files， 如 图 15-40 所 示 。 
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@ 细 设 置 完 毕 后 ， 单 击 【 保 存 】 按 钮 ， 即 可 弹出 成 功 导 出 所 选 内 容 的 提示 信息 ， 如 图 15-41 所 示 。 


Microsoft Ezcel 区 
已 格 所 过 择 的 115 个 单元 格 数据 导出 到 E: \B00K\vbs\ 新 建文 件 夹 \ 第 15 意 \YBA 导 出 页 面 文件 .hts 文件 中 
Ine es 
ee 
| ce EE 


图 15-40 【另存 为 】 对 话 框 图 15-41 提示 信息 
@ 副 单 击 【 确 定 】 按 钮 ， 即 可 将 选中 的 单元 格 区 域内 容 导 出 到 指定 位 置 。 找 到 导出 的 “VBA 
导出 页 面 文 件 .htm” 文 件 并 打开 ， 即 可 看 到 导出 的 文件 内 容 ， 如 图 15-42 所 示 。 


【提示 】 如 果 将 语句 Open Filename For Append As #1 修改 为 Open Filename For Output As#1， 则 系统 每 
次 生成 的 “使 用 VBA.htm” 文 件 都 是 在 删除 原 有 文件 的 基础 上 重新 生成 的 同名 新 文件 。 


.5:4 
记录 Excel 日 志 


如 果 需 要 在 每 次 打开 或 关闭 Excel 时 都 写 数据 到 某 个 文本 文件 中 ， 最 好 的 操作 方法 就 是 
将 能 够 实现 该 功能 的 VBA 过 程 存放 于 每 次 启动 Excel 时 打开 的 那个 工作 短 中 。 

在 日 志文 件 中 记录 Excel 表格 的 打开 时 间 ， 有 具体 的 操作 步骤 如 下 。 

上 @ 血 新 建 一 个 空白 工作 得， 将 其 另存 为 “记录 Excel 日 志 .xlsm” 的 启用 宏文 件 。 然 后 在 “ 记 
录 Excel 日 志 .xlsm ”放置 的 位 置 新 建 一 个 名 为 “日 志 记录 .txt” 的 文本 文件 。 要 注意 的 是 ,这 两 个 
文件 必须 在 同一 路 径 下 ， 如 图 15-43 所 示 。 


EE 
Oa- © FF Pu bxna DT Hnans 
OT 


图 15-42 导出 的 文件 内 容 15-43 新建 xlsm 文件 和 txt 文件 
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@ 到 在 “记录 Excel 日 志 .xlsm ”工作 筹 中 切换 到 【开发 工具 】 选 项 卡 ， 单 击 【 控 件 】 选 项 组 
中 的 【Visual Basic】 按钮 打开 VBA 代码 编辑 窗口 。 从 中 双击 【工程 资源 管理 器 】 窗 口中 的 
ThisWorkbook 选项 ， 打 开 ThisWorkbook 的 代码 窗口 ， 从 中 输入 记录 打开 “记录 Excel 日 志 .xlsm” 
工作 簿 时 间 的 程序 代码 ， 如 图 15-44 所 示 。 

Private Sub Workbook Open() 

Open ThisWorkbook.Path & "\ 日 志 记录 .txt" For Append Rs #1 

Print #1， "打开 Excel 的 时 间 : " & Now 

Close #1 

End Sub 

这 段 代码 的 作用 是 将 打开 “记录 Excel 日 志 .xlsm” 工 作 秒 的 时 间 追 加 到 “日 志 记 录 .txt” 
文件 的 末尾 ， 追 加 完毕 后 自动 关闭 该 文本 文件 。 

值得 注意 的 是 ， 语 句 Open ThisWorkbook.Path & \ 日 志 记 录 .txt” 中 的 ThisWorkbook.Path 
是 一 个 系统 变量 , 指 的 是 “记录 Excel 日 志 .xlsm?” 工 作 敌 的 路 径 。 由 于 在 步骤 1 中 已 经 将 “ 记 
录 Excel 日 志 .xlsm” 文 件 和 “日 志 记录 .txt” 文 件 放 在 了 同一 路 径 下 ， 所 以 这 个 路 径 也 可 用 来 
表示 “日 志 记录 .txt” 文 件 的 路 径 。 


@ 旨 保存 VBA 代码 ， 然 后 关闭 “记录 Excel 日 志 .xlsm” 工 作 簿 。 重 新 打开 该 工作 短 时 就 会 
,系统 已 自动 将 访问 该 工作 敌 的 时 间 添 加 到 了 “日 志 记 录 .txt” 文件 的 末尾 ,如 图 15-45 所 示 。 


发 


当 


i 240 mdD) EY MD wo Wn 
! my 


用 日 志 记 录 . txt 一 记事 本 


打开 Excel 的 时 间 ，2612-3-3 16:43:93 


图 15-44 ”获取 打开 Excel 的 时 间 程 序 代码 图 15-45 记录 打开 Excel 的 时 间 
i@ 网 在 ThisWorkbook 代码 窗口 中 继续 输入 获取 关闭 文件 的 时 间 代码 程序 , 如 图 15-46 所 示 。 


Private Sub Workbook BeforeCclose (Cancel As Boolean) 
Open ThisWorkbook.Path & "\ 日 志 记录 .txt"” For Append Rs #1 
Print #1， "关闭 Excel 的 时 间 : " & Now 

Close #1 

End Sub 


这 段 代 码 的 作用 是 在 每 次 关闭 “记录 Excel 日 志 .xlsm” 工 作 敌 时， 系统 会 自动 将 关闭 时 
间 追 加 到 “日 志 记录 .txt” 文 件 的 末尾 ， 追 加 完毕 后 自动 关闭 该 文本 文件 。 
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@ 国 保存 VBA 代码 , 关闭 “记录 Excel 日 志 .xlsm” 工 作 敌 .此 时 打开 “日 志 记 录 .txt” 文件 ， 
就 会 发 现 系统 已 经 自动 将 关闭 该 工作 簿 的 时 间 添 加 到 了 “日 志 记 录 .txt” 文 件 的 末尾 ， 如 图 15-47 
所 示 。 


外 日 志 记 录 . txt - 记事 本 
文件 中 编辑 下 ) 格式 @) 查看 WD 帮助 如 
全 的 时 全 2812-3-3 16:43:83 
1 


闭 Excel 的 时 间 ，2612-3-3 16:43:39 


图 15-46 输入 获取 关闭 Excel 的 时 间 代码 程序 图 15-47 记录 关闭 Excel 的 时 间 


155 
创建 级 联 菜 单 管 理工 作 簿 


在 对 多 个 文件 进行 管理 的 时 候 ， 可 以 使 用 级 联 菜单 的 方式 将 多 个 工作 表 或 工作 敌 的 名 字 
存放 在 菜单 上 ， 通 过 单 击 菜单 上 的 名 称 就 能 调 出 相应 的 工作 表 来 。 使 用 级 联 菜单 的 方式 管理 
多 个 工作 德 不 仅 使 访问 文件 方便 快捷 ， 而 且 条 理 清晰 、 便 于 查找 。 

下 面 就 以 某 企业 对 工资 数据 的 管理 为 例 ， 介 绍 如何 使 用 Excel VBA 创建 管理 多 个 工作 适 
的 级 联 菜单 。 


15.5.1 创建 管理 工资 数据 的 工作 簿 


在 对 工资 数据 的 管理 过 程 中 ， 需 要 统计 各 个 月 份 每 位 员工 的 考勤 记录 和 销售 业绩 等 工资 
数据 。 通 常 ， 企 业 管 理 人 员 会 将 各 个 部 门 的 工资 管理 数据 按 月 存放 在 不 同 的 工作 短 中 ， 即 分 
别 建立 如 图 15-48 所 示 的 “三 月 份 销售 部 工资 管理 ”工作 德 和 如 图 15-49 所 示 的 “四 月 份 销 
售 部 工资 管理 ”工作 簿 。 
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四- ee 2010 on Baa 


了 工 洪 时 村 泊 革 记 漆 守 ] 工业 和 。 二 二 站 志 实 .下 


2 
Cu ee 
en TT 


15-48 三 月 份 销售 部 工资 管理 


图 15-49 四 月 份 销售 部 工资 管理 


这 里 只 是 列举 了 “三 月 份 销售 部 工资 管理 ”和 “四 月 份 销售 部 工资 管理 ”两 个 工作 短 ， 
以 此 为 例 来 介绍 使 用 Excel VBA 进行 工资 数据 管理 的 方法 。 
创建 工资 管理 工作 每， 具体 的 操作 步骤 如 下 。 


@ 胃 为 了 实现 在 一 个 工作 簿 中 管理 多 个 工作 簿 的 功能 ,首先 需要 建立 一 个 新 的 工作 簿 ,并 将 
其 保存 为 “销售 部 全 年 记录 ”， 然 后 在 该 工作 簿 中 删除 Sheet2 和 Sheet3 工作 表 ， 并 双击 Sheetl 工 
作 表 标签 ， 将 其 重 命名 为 “销售 部 全 年 记录 "， 如 图 15-50 所 示 。 

到 在 “销售 部 全 年 记录 ”工作 表 中 添加 说 明 性 文字 ， 完 成 管理 工资 数据 工作 秒 的 创建 ， 如 


图 15-51 所 示 。 


DPI MER PC en ~ Merevolt En mn 


EGR [EC mr 


em I ~ Tn ee OS 


1 证 全 和 BC IE 忆 


15-50 “销售 部 全 年 记录 ”工作 短 
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图 15-51 创建 “销售 部 全 年 记录 ”工作 表 
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15.5.2 编辑 创建 菜单 的 VBA 代码 


为 了 在 “销售 部 全 年 记录 ”工作 短 中 使 用 级 联 菜单 管理 “三 月 份 销售 部 工资 管理 ” 和 “四 
月 份 销售 部 工资 管理 ”两 个 工作 簿 ， 需 要 按照 下 面 的 操作 步骤 编辑 创建 菜单 的 VBA 代码 。 
创建 操作 工资 管理 工作 簿 的 级 联 菜 单 ， 操 作 过 程 如 下 。 


上 @ 乔 在 “销售 部 全 年 记录 ”工作 表 中 ， 切 换 到 【开发 工具 】 选 项 卡 ， 单 击 【 控 件 】 选 项 组 中 
的 Visual Basic 按钮 ， 打开 VBA 代码 编辑 窗口 ， 从 中 选择 【插入 】> 【模块 】 菜 单项 ， 即 可 在 当 
前 工作 簿 中 插入 一 个 模块 ， 然 后 在 其 【属性 】 窗 口中 的 【名 称 】 文 本 框 中 输入 “创建 级 联 菜单 ， 
按 下 Enter 键 即 可 将 插入 的 模块 重 命名 ， 如 图 15-52 所 示 。 

到 在 “创建 级 联 菜单 ”模块 代码 窗口 中 添加 下 面 的 自 定义 创建 级 联 菜单 函数 的 代码 ,如 图 
15-53 所 示 。 


Sub OpenMenu () ' 自 定义 创建 级 联 菜单 的 函数 
On Error Resume Next ' 忽 略 错误 
MenuBars ("MyMenu") .Delete ' 删 除 工 作 竹中 原 有 的 自 定义 菜单 项 
MenuBars.Add ("MyMenu") ' 增 加 用 户 自 定义 的 菜单 项 
Sheets ("销售 部 全 年 记录 ") .Select 
MenuBars ("MyMenu") .Menus .Add Caption:=" 三 月 份 "' 增 加 第 一 个 “三 月 份 ” 菜 单 
MenuBars ("MyMenu") .Menus ("三 月 份 ") .MenuItems .Add Caption:=" 三 月 份 考勤 记录 表 
", OnAction:="SheetOpen]ll" 
"在 “三 月 份 ”菜单 下 增加 “三 月 份 考勤 记录 表 ” 菜 单项 
MenuBars ("MyMenu") .Menus ("三 月 份 ") .MenuItems .Add Caption:=" 三 月 份 销售 业绩 表 
", OnAction:="SheetOpen12" 
"在 “三 月 份 ”菜单 下 增加 “三 月 份 销售 业绩 表 ” 菜 单项 
MenuBars ("MyMenu") .Menus ("三 月 份 ") .MenuItems .Rdd Caption:=" 三 月 份 销售 部 工资 
表 "，OnAction:="SheetOpen13" 
"在 “三 月 份 ”菜单 下 增加 “三 月 份 销售 部 工资 表 ” 菜 单项 
MenuBars ("MyMenu") .Menus ("三 月 份 ") .MenuItems .Rdd Caption:=" 销 售 部 员工 资料 表 
", OnAction:="SheetOpenl4" 
"在 “三 月 份 ”菜单 下 增加 “销售 部 员工 资料 表 ” 菜 单项 
MenuBars ("MyMenu") .Menus .Add Caption:=" 四 月 份 " ' 增 加 “四 月 份 ”菜单 
MenuBars ("MyMenu") .Menus (" 四 月 份 ") .MenuItems .Rdd Caption:=" 四 月 份 考勤 记录 表 
", OnAction:="sheetopen21" 
MenuBars ("MyMenu") .Menus ("四 月 份 ") .MenuItems .Add Caption:=" 四 月 份 销售 业绩 表 
", OnAction:="SheetOpen22" 
MenuBars ("MyMenu") .Menus ("四 月 份 ") .MenuItems .Add Caption:=" 四 月 份 销售 部 工资 
表 "，OnAction:="SheetOpen23" 
MenuBars ("MyMenu") .Menus ("四 月 份 ") .MenuItems .Add Caption:=" 销 售 部 员工 资料 表 
", OnAction:="SheetOpen24" 
MenuBars ("MyMenu") .Activate ' 激 活 自 定义 菜单 项 
End Sub 


这 段 代码 的 作用 是 首先 使 用 On Error Resume Next 语句 忽略 错误 ;然后 删除 工作 短 中 原 有 
的 自 定义 菜单 项 , 并 重新 添加 用 户 自 定义 的 菜单 , 即 防 止 重复 加 载 自 定义 菜单 项 ; 接着 选择 “ 销 
售 部 全 年 记录 ”工作 表 ， 然 后 在 该 工作 表 中 分 别 添加 三 月 份 和 四 月 份 的 级 联 菜单 ， 并 设置 其 响 
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方式 ; 最 后 使 用 MenuBars (“MyMenu”) .Activate 语句 来 激活 添加 的 自 定义 菜单 项 。 

这 段 代码 中 主要 使 用 MenuBars (“MyMenu”) .Menus.Add Caption:= (“三 月 份 ”) 语句 来 
添加 “三 月 份 ”的 一 级 菜单 ， 然 后 使 用 MenuBars (“MyMenu”) .Menus. (“三 月 
份 ”) .Menultems.Add Caption:=“ 三 月 份 考勤 记录 表 ”，OnAction:=“SheetOpen11” 语 句 来 添 
加 
用 


二 级 菜单 ， 在 添加 完成 后 自动 设置 其 响应 方式 ， 即 在 用 户 选 择 某 个 菜单 时 ， 系 统 将 自动 调 
其 响应 函数 SheetOpen11。 通 过 这 种 方法 ， 不 仅 可 以 创建 管理 数据 的 二 级 菜单 ， 而 且 可 以 


15-52 ”插入 “创建 级 联 菜 单 ” 模 块 图 15-53 自 定义 创建 级 联 菜单 函数 的 代码 


@ 旨 创建 级 联 菜单 时 调用 的 响应 函数 都 很 相似 ， 但 是 在 菜单 的 响应 事件 中 却 不 能 传递 参数 ， 
此 只 能 分 别 编辑 每 个 菜单 项 的 响应 函数 代码 。 于 是 ， 在 上 述 代码 窗口 中 添加 创建 级 联 菜单 时 的 
应 函数 SheetOpen11 代码 ， 如 图 15-54 所 示 。 


Sub SheetOPpenll () "编辑 创建 “三 月 份 考勤 记录 表 ” 级 联 菜单 的 响应 代码 

Dim book As Workbook ' 定 义 一 个 workbook 变 量 

On Error Resume Next 

Set book = Workbooks ("三 月 份 销售 部 工资 管理 .xlsm") 

If book Is Nothing Then ' 说 明 “ 三 月 份 销售 部 工资 管理 ”工作 矢 没 打开 
Workbooks .Open Filename:=ThisWorkbook.Path + "\ 三 月 份 销售 部 工资 管理 .xlsm" 

"打开 “三 月 份 销售 部 工资 管理 ”工作 短 

End If 

Windows ("三 月 份 销售 部 工资 管理 .xlsm") .Activate 

Sheets ("三 月 份 考勤 记录 表 ") .Activate ' 使 “三 月 份 考勤 记录 表 ” 为 当前 活动 工作 表 

End Sub 


这 段 代码 的 作用 是 首先 定义 一 个 Workbook 数据 类 型 的 对 象 变量 book， 并 将 工作 敌 集 合 


中 的 “三 月 份 销售 部 工资 管理 .xlsm”(Workbook 对 象 ) 赋值 给 book 变量 ;然后 使 用 下 语句 
判断 该 工作 敌 是 否 打 开 ， 如 果 没 有 打开 ， 则 执行 其 打开 操作 ; 最 后 使 用 Activate 方法 激活 该 
工作 短 中 的 “三 月 份 考勤 记录 ”工作 表 。 
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【提示 】Workbooks.Open Filename:=ThisWorkbook.Path + 人 \ 三 月 份 销售 部 工资 管理 .xlsm” 表 示 打 开 “ 三 
月 份 销售 部 工资 管理 "工作 簿 , 即 “ 三 月 份 考勤 记录 表 ” 工 作 表 所 在 的 工作 簿 。 事 实 上 ,ThisWorkbook.Path 
表示 当前 打开 的 “三 月 份 考勤 记录 表 ” 工 作 表 的 路 径 ， 所 以 这 里 也 可 以 不 用 这 个 系统 变量 ,而 是 写 上 
其 绝对 路 径 。 


销售 部 全 年 记录 .x1me - 【他 


ra nye nn Cp 
i "EAN a 


”为 当 各 认 台 工作 丰 | 


ol 
15-54 ”响应 函数 SheetOpen11 的 完整 代码 图 15-55 ”响应 函数 SheetOpen12 的 完整 代码 


@ 绚 所 有 级 联 菜单 的 响应 函数 代码 都 很 相似 , 这 里 不 再 详细 介绍 . 编写 的 各 个 响应 函数 的 代 
码 分 别 如 图 15-55 至 图 15-60 所 示 。 


Re A CPs tt be Sh sho Sn NE pa em 
Er er A ee 


Tee a 


EEC 


NT i 
Fene- nansaIrm ee EN dA ee 


本 网 


图 15-58 ”响应 函数 SheetOpen21 的 完整 代码 15-59 ”响应 函数 SheetOpen22 的 完整 代码 
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15-60 ”响应 函数 SheetOpen23 的 完整 代码 图 15-61 ”响应 函数 SheetOpen24 的 完整 代码 


为 实现 在 打开 “销售 部 全 年 记录 ”工作 德 时 即 可 使 用 前 面 创建 的 菜单 ， 需 要 设置 在 该 工 
作 短 打开 时 运行 OpenMenu () 函数 。 


@ 鸭 在 上 述 代码 中 添加 下 面 的 打开 工作 簿 时 即 可 运行 OpenMenu () 函数 的 代码 程序 ， 如 图 
15-62 所 示 。 


Sub auto_open () "系统 自动 打开 运行 宏 
OpenMenu ' 调 用 用 户 自 定义 菜单 函数 
End Sub 
Sub auto_close () ' 系 统 自动 关闭 运行 宏 
On Error Resume Next ' 忽 略 错误 
MenuBars ("MyMenu") .Delete ' 删 除 自 定义 的 菜单 
End Sub 


m - [ 介 .-。 [ 国 | 右 | 区 


图 15-62 ”打开 工作 矢 时 即 可 运行 OpenMenu() 函 数 的 代码 


这 段 代码 的 作用 是 设置 在 “销售 部 全 年 记录 ”工作 德 打 开 时 即 可 调用 OpenMenu () 函 
数 ， 而 在 该 工作 德 关 闭 时 则 自动 恢复 菜单 为 默认 模式 。 否 则 ， 在 打开 其 他 文档 时 ， 用 户 都 将 
看 不 到 系统 菜单 ， 而 只 是 看 到 这 里 创建 的 菜单 项 ， 这 显然 是 不 应 该 的 。 


辣 于 | 使 用 级 联 菜单 管理 多 个 工作 短 


在 完成 了 创建 多 个 工作 德 的 级 联 菜 单 后 ， 就 可 以 检验 其 运行 过 程 了 。 
使 用 级 联 菜 单 管理 多 个 工作 短 ， 具 体操 作 步 又 如 下 。 


上 @ 二 重新 打开 “销售 部 全 年 记录 ”工作 簿 ， 即 可 看 到 前 面 创建 的 “销售 部 全 年 记录 ”工作 表 


336 


第 15 章 用 Excel VBA 实 现 高 效 文件 处 理 


成 为 当前 活动 工作 表 , 并 且 所 添加 的 “三 月 份 ”和 “四 月 份 ”两 个 菜单 项 出 现在 【加 载 项 】 选 项 
卡 中 ， 如 图 15-63 所 示 。 


[CD ed 站 
用 图 ~ -= := sm ra “9 


图 15-63 ”创建 的 管理 多 个 工作 等 的 工作 等 


@ 到 单 击 【 三 月 份 】 下 三 角 按 钮 ， 即 可 弹出 相应 的 级 联 菜单 ， 同 理 ， 单 击 【 四 月 份 】 下 三 角 
按钮 ， 将 弹出 四 月 份 相应 的 级 联 菜 单 。 

@ 旨 选择 【三 月 份 】> 【三 月 份 销 售 部 工资 表 】 菜 单项 ， 即 可 得 到 “三 月 份 销售 部 工资 表 ” 
成 为 当前 活动 工作 表 ， 如 图 15-64 所 示 。 

蜀 此 时 如 果 需 要 查看 三 月 份 销售 部 考勤 记录 情况 ， 可 以 选择 【三 月 份 】> 【三 月 份 考勤 记 
录 表 】 菜 单项 ， 或 直接 单 击 工作 表 标 签 “考勤 记录 表 ”， 如 图 15-65 所 示 。 


ET EA SWEET Em Meroron Excet =@u ig?-.~-l SM TI Edm + Microtofr Excel 四 
Fm Mm Pak SK HS SR RM TR ”加 = 风 开 | = -- 有 FEAT 
9 本 于 =a9* BAN. 9 WN A909 SHA9* ] 
| eee aasmms 
了 [本 站 

ET | 一 5 3 en 司 

1 三 月 份 销售 部 工资 表 

2 
3 er Mt 10 400 1 四 "| 
| mioz | 讽 小 加 | Ho ms 1 Fume er 
归 | si03 “| 王 啤 阐 1409 4 10 TN 本 
所 si04 | 自 丰 华 | zzo 3 39 3] | 
rT TH" 2 120 20 | 由 
时 | wo6 | 际 殷殷 | ;oo 0 0 Pi wr | 
| wor Ea eo0 oo 129 有 
通 | wtos “于 英 贡 | lo 3 站 | 
对 | sl09 一 末世 纺 ， 199 4 i109 9 二 -本 
12 wl0 孙 世 宁 | 1409 495 J29 00 二 可 
过 | ml | 网 卜 | lo aw 20 20 | 
到 | wll2 | 除了 条 | ao 25 20 EE | 
天 | ml3 “| 折 基 军 ho 2 Ja wm | 
乌 | wll4 | 万 伟 | Ho 3 人 mm | 
车 | sll5 于 肖 崩 329 | M9 i139 有 | 
39| wll6 | 李 夫 jl | 39 | im | 2 | 晤 
,人 | dae Ta | 
Ta | J ==0==4d 
图 15-64 “三 月 份 销售 部 工资 表 ” 成 为 当前 活动 工作 表 15-65 查看 三 月 份 销售 部 考勤 记录 情况 


从 上 面 的 例子 可 以 看 出 ， 使 用 Excel VBA 创建 管理 多 个 工作 簿 的 级 联 菜单 的 高 效 性 ， 这 
里 只 是 列举 了 两 个 月 份 的 例子 ， 如 果 需 要 管理 全 年 甚至 更 长 的 时 间 ， 或 是 不 同 部 门 的 数据 ， 
只 需要 增加 菜单 级 数 及 增加 响应 函数 即 可 。 
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15.6 
工作 表 安 全 性 保护 


Excel 的 应 用 范围 非常 广泛 ， 为 了 防止 与 编辑 工作 表 无 关 的 人 员 更 改 其 中 的 数据 内 容 ， 
需要 对 工作 表 的 数据 进行 安全 性 保护 。 保 护 后 的 工作 表 数据 如 果 未 经 授权 ， 其 他 人 都 将 无 法 
对 其 进行 修改 。 而 当 工作 表 中 的 内 容 不 再 需要 保护 或 当 编 辑 者 需要 修改 其 中 的 数据 内 容 时 ， 
则 可 以 取消 对 工作 表 的 保护 。 


15.6.1 在 Excel 中 实现 对 工作 表 的 保护 


下 面 以 “三 月 份 销售 部 工资 管理 ”工作 簿 中 的 “工资 表 ” 为 例 ， 介 绍 在 Excel 中 实现 对 
工作 表 的 保护 。 
1. 保护 工作 表 

在 Excel 中 实现 保护 “工资 表 ” 功 能 ， 具 体操 作 步骤 如 下 。 

@ 明 打开 “三 月 份 销售 部 工资 管理 ”工作 短 ， 切 换 到 “工资 表 "。 然 后 切换 到 【审阅 】 选 项 
卡 ， 在 【更改 】 选 项 组 中 单 击 【 保 护 工作 表 】 按 钮 ， 即 可 打开 【保护 工作 表 】 对 话 框 ,从 中 选中 


【保护 工作 表 及 锁定 的 单元 格 内 容 】 复 选 框 ， 并 在 “取消 工作 表 保 护 时 使 用 的 密码 ”文本 框 中 输 
入 设置 的 密码 ， 这 里 输入 “123456” ， 如 图 15-66 所 示 . 


ss 


ps 


图 15-66 【保护 工作 表 】 对 话 框 


【提示 】〗 在 【保护 工作 表 】〗 对 话 框 中 ， 用 户 可 以 设置 更 为 详细 的 保护 功能 ， 只 需要 在 【多 许 此 工作 表 的 
所 有 用 户 进行 〗 列 表 框 中 选中 相应 的 复 选 框 即 可 。 
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@ 到 单 击 【 确 定 】 按 钮 ， 系 统 将 自动 弹出 【确认 密码 】 对 话 框 ， 在 【重新 输入 密码 】 文 本 框 
中 重新 输入 密码 “123456” ， 如 图 15-67 所 示 。 


sua ep a 
Cs 
hn EE ss OE 1 日 | 

, 三 月 份 销售 部 工资 表 
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四 四 
日 四 
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日 四 
0 P| 
拒 
多 
加 
oo | | 

r 站 四 

TT 四 1 20 

55" WR a 

En TF 四 


15-67 【确认 密码 】 对 话 框 


@gj 单 击 【 和 确定】 按钮 ， 即 可 完成 该 工作 表 的 保护 操作 。 此 时 用 户 如 果 在 该 工作 表 的 任 一 单元 格 
上 双击 或 试图 修改 工作 表 的 内 容 或 格式 ， 系 统 都 会 弹出 警告 信息 对 话 框 ， 如 图 15-68 所 示 。 


您 试图 更 改 的 单元 格 或 图 表 受 保护 ， 因 而 是 只 该 的 . 


! Eb ， 请 先 使 用 “撤消 工作 甫 保护 ”命令 (在 “审阅” 选项 卡 的 “更 疏 ”组 中 ) 来 取消 保护 ， 可 能 会 提示 悠 输 入 窗 


CD 
15-68 ”警告 信息 
上 @ 缚 单 击 【 确 定 】 按 钮 ， 即 可 退出 该 警告 信息 对 话 框 。 


通过 以 上 操作 可 以 看 出 ， 对 于 已 经 实现 保护 工作 表 功 能 的 “工资 表 ”， 一般 的 用 户 只 拥有 
浏览 权 ， 而 无 法 对 其 进行 修改 ;如果 需要 修改 其 中 的 数据 内 容 ， 则 必须 撤销 对 工作 表 的 保护 。 
2. 撤销 工作 表 的 保护 

撤销 工作 表 保护 ， 有 具体 操作 步骤 如 下 。 

@ 册 在 【审阅 】 选 项 卡 中 ， 单 击 【 更 改 】 选 项 组 中 的 【保护 工作 表 】 按 钮 ， 即 可 打开 【撤销 
工作 表 保 护 】 对 话 框 ,从 中 输入 前 面 设置 的 密码 “123456” ， 如 图 15-69 所 示 。 

@ 到 单 击 【 确 定 】 按 钮 ， 即 可 取消 对 工作 表 的 保护 。 

另外 ， 如 果 同 时 需要 对 多 个 工作 表 进 行 保护 操作 ， 在 Excel 中 只 能 逐个 进行 上 述 操作 。 
这 是 因为 如 果 按 住 Ctrl 键 的 同时 选 定 多 个 工作 表 ， 然 后 切换 到 【审阅 】 选 项 卡 中 ， 会 发 现在 
【 更改】 选项 组 中 【保护 工作 表 】 按 钮 处 于 不 可 用 状态 ， 而 只 能 选择 【保护 工作 短 】 菜 单项 ， 
如 图 15-70 所 示 。 
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图 15-69 【撤销 工作 表 保 护 】 对 话 框 图 15-70 【更 改 】 选 项 组 


15.6.2 使 用 Excel VBA 实现 对 多 个 工作 表 的 保护 


使 用 Excel VBA 可 以 实现 对 多 个 工作 表 的 保护 功能 。 下 面 将 设计 一 个 保护 多 个 工作 表 的 
窗 体 ， 该 窗 体 由 “保护 ”和 “打开 ”两 部 分 组 成 。 在 “保护 ”部 分 列举 出 当前 工作 敌 中 所 有 
未 被 保护 的 工作 表 ， 当 用 户 选 择 其 中 任意 一 个 工作 表 时 ， 对 该 工作 表 执 行 加 密 操作 ， 在 “ 打 
开 ” 部 分 列举 出 当前 工作 短 中 已 经 被 保护 的 工作 表 ， 当 用 户 选择 其 中 任意 一 个 工作 表 时 ， 对 
其 执行 解密 操作 ， 从 而 实现 多 个 工作 表 的 安全 性 保护 。 


1. 创建 保护 多 个 工作 表 的 窗 体 


在 “三 月 份 销售 部 工资 管理 ”工作 簿 中 使 用 Excel VBA 创建 一 个 保护 多 个 工作 表 的 窗 体 ， 
具体 操作 步 又 如 下 。 


@ 央 在 “三 月 份 销售 部 工资 管理 ”工作 簿 中 ， 切 换 到 【开发 工具 】 选 项 卡 ， 单 击 【 代 码 】 选 
项 组 中 的 Visual Basic 按钮 ， 即 可 进入 VBA 代码 窗口 ， 从 中 选择 【插入 】> 【用 户 窗 体 】 菜 单项 ， 
在 该 项 目 工 程 中 插入 一 个 用 户 窗 体 。 接 着 将 其 【属性 】 窗 口中 的 Caption 属性 修改 为 “打开 并 保 
护 多 个 工作 表 "， 如 图 15-71 所 示 。 

@ 到 单 击 【 工 具 箱 】 中 的 【标签 】 按 钮 A|， 在 用 户 窗 体 中 绘制 一 个 标签 控件 。 接 着 在 其 【 属 
性 】 窗 口中 的 Caption 文本 框 中 输入 “请 选择 要 保护 的 工作 表 "， 按 下 Enter 键 即 可 修改 完成 其 显 
示 文 本 ， 如 图 15-72 所 示 。 
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pir els Kr MrT E Viswel Basie for Appliew 三 月 从 铺 信 好 工 入 管理 .zlzm 
2 sD EY ED we E EE 
-ex 


图 15-71 设置 用 户 窗 体 的 Caption 属性 值 图 15-72 添加 一 个 标签 控件 
0 闻 单 击 【工具 箱 】 中 的 【组 合 框 按钮 外， 在 用 户 窗 体 中 绘制 一 个 组 合 框 控件 , 如 图 15-73 


@ 缚 单 击 【工具 箱 】 中 的 【列表 框 】 按钮 外 ,在 用 户 窗 体 中 绘制 一 个 列表 框 控件 , 如 图 15-74 


pp lcm 月 从 名 和 本 工 入 和 列 . x1re - (vr.,， 导 | 喇 可 
M0) WD) E50 IRD PIAm COW Wees 
EC 


rr 月 名 铺 和 他 工 生理 .xlsn 下 
FEED 
日 四 只 


< 


图 15-73 添加 一 个 组 合 框 控件 图 15-74 ”添加 一 个 列表 框 控件 


@ 辐 单 击 【工具 箱 】 中 的 【命令 按钮 】 二 |, 在 用 户 窗 体 中 绘制 一 个 命令 按钮 控件 , 并 在 其 【 属 
性 】 窗 口中 的 Caption 文本 框 中 输入 “保护 ， 即 修改 添加 按钮 的 显示 文本 ， 如 图 15-75 所 示 。 

@g 按照 上 面 的 操作 步骤 ,在 【打开 并 保护 多 个 工作 表 】 用 户 窗 体 中 添加 如 图 15-76 所 示 的 
内 容 。 
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15-75 添加 一 个 命令 按钮 控件 图 15-76 设计 完成 的 用 户 窗 体 


2. 编辑 保护 多 个 工作 表 的 VBA 代码 
创建 好 一 个 保护 多 个 工作 表 的 窗 体 后 ,就 可 以 编辑 实现 保护 多 个 工作 表 功 能 的 VBA 代码 了 。 


在 VBA 中 实现 保护 多 个 工作 表 ， 具 体 的 操作 步骤 如 下 。 
@ 册 双击 【打开 并 保护 多 个 工作 表 】 窗 体 ， 进 入 其 代码 编辑 窗口 。 然 后 在 其 对 象 下 拉 列 表 中 
选择 UserForm 选项 ， 在 其 事件 下 拉 列 表 中 选择 Activate 选项 ， 即 可 生成 UserForm_Click 事件 处 


理 程序 代码 框架 ， 如 图 15-77 所 示 。 
@ 双 在 该 代码 框架 中 输入 下 面 的 代码 程序 ， 如 图 15-78 所 示 。 


Private Sub UserForm Activate() 
Dim book Rs Worksheet  “' 定 义 一 个 工作 表 变量 
For Each book In ActiveWorkbook.Sheets 
' 获 得 当前 工作 矢 中 工作 表 的 名 称 
If book.ProtectContents = False Then 
ComboBox1 .AddItem book.Name 
' 定 义 加 载 第 一 个 组 合 框 时 显示 的 内 容 
Else 
ComboBox2.AddItem book.Name 
"定义 加 载 第 二 个 组 合 框 时 显示 的 内 容 
End If 
Next book 
End Sub 
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图 15-77 系统 自动 生成 的 代码 框架 15-78 ”编辑 UserForm_Click 的 事件 处 理 程序 


这 段 代 码 中 的 “ActiveWorkbook.Sheets ”表示 当前 工作 簿 中 所 有 工作 表 的 集合 ， 
“book.ProtectContents ”表示 选择 的 工作 表 是 否 处 于 保护 状态 。 其 具体 实现 过 程 是 ， 首 先 定义 
-个 工作 表 数 据 类 型 的 变量 book， 然 后 在 循环 语句 中 使 工作 表 变 量 book 依次 取得 该 工作 表 
集合 中 每 个 工作 表 的 名 字 , 接着 使 用 下 语句 判断 该 工作 表 是 否 处 于 保护 状态 , 如 果 未 被 保护 ， 
则 将 其 添加 到 组 合 框 ComboBoxl 中 ; 否则 将 添加 到 组 合 框 ComboBox2 中 。 


@ 旨 代码 输入 完毕 后 ,选择 【运行 】> 【运行 子 过 程 /用 户 窗 体 】 菜 单项 ,然后 在 弹出 的 【 打 
开 并 保护 多 个 工作 表 】 窗 体 中 单 击 【 请 选择 要 保护 的 工作 表 】 下 三 角 按钮 ， 可 弹出 如 图 15-79 所 
示 的 下 拉 列 表 。 

0 出 单 击 【 请 选择 已 保护 的 工作 表 】 下 三 角 按钮 ， 则 可 以 看 到 下 拉 列 表 中 没有 任何 内 容 ， 如 
15-80 所 示 。 这 是 由 于 此 时 该 工作 秒 中 所 有 的 工作 表 都 未 被 保护 。 


打开 并 保护 多 个 工作 表 


图 15-79 【请 选择 要 保护 的 工作 表 】 下 拉 列 表 图 15-80 【请 选择 已 保护 的 工作 表 】 下 拉 列 表 


@ 加 如 果 用 户 在 下 拉 列 表 中 选择 任意 一 个 工作 表 , 在 右 侧 的 列表 框 中 都 将 显示 出 该 工作 表 的 
名 称 ， 并 且 列表 框 中 的 工作 表 也 就 是 需要 加 密 或 者 解密 的 工作 表 。 所以， 还 需要 进一步 设置 组 合 
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框 的 Change 事件 处 理 程序 ， 即 双击 添加 的 第 一 个 组 合 框 ComboBox1， 进 入 其 代码 编辑 窗口 ， 输 
入 如 下 代码 : 
Private Sub ComboBoxl1 Change () 


ListBoxl.AddItem ComboBox1.Text ' 设 置 列表 框 1 的 显示 内 容 
End Sub 


这 段 代码 的 作用 是 当 用 户 在 组 合 框 ComboBoxl 中 选择 了 一 个 工作 表 时 ， 系 统 将 自动 加 
载 列表 框 ListBox1 的 显示 内 容 。 按 照 同 样 的 方法 , 编辑 组 合 框 ComboBox2 的 Change 事件 处 
理 程序 ， 即 双击 第 二 个 组 合 框 ， 进 入 其 代码 编辑 窗口 ， 输 入 下 面 的 代码 程序 : 

Private Sub ComboBox2 Change() 

ListBox2.AddItem ComboBox2.Text ' 设 置 列表 框 2 的 显示 内 容 

End Sub 

@gj 此 时 ， 在 VBA 代码 编辑 窗口 中 ， 选 择 【 运 行 】 一 【选择 子 过 程 /用 户 窗 体 】 菜 单项 ,在 
弹出 的 【打开 并 保护 多 个 工作 表 】 用 户 窗 体 中 ,在 【请 选择 要 保护 的 工作 表 】 下 拉 列 表 中 选择 “ 销 
售 部 员工 资料 表 ” 选 项 ， 即 可 在 其 下 面 的 列表 框 中 自动 显示 出 选择 的 工作 表 名 称 “ 销 售 部 员工 资 
料 表 "， 如 图 15-81 所 示 。 

天 有 时 ， 用 户 可 能 误 单 击 了 组 合 框 中 的 选项 ， 将 不 需要 保护 的 工作 表 添 加 到 列表 框 中 ,可 
以 通过 设置 列表 框 的 双击 事件 来 删除 这 些 不 需要 的 项 目 ， 即 在 代码 窗口 中 输入 下 面 的 
ListBox1_DblClick 事件 处 理 程序 的 代码 。 


Private Sub ListBox1l DblClick(ByVal Cancel As MSForms.ReturnBoolean) 
ListBoxl.RemoveItem ListBox1.ListIndex 

"设置 当 双击 列表 框 的 项 目 时 系统 自动 删除 当前 项 目 
End Sub 


这 段 代 码 的 作用 是 每 次 双击 列表 框 中 显示 的 内 容 时 ， 系 统 都 会 自动 将 其 删除 。 其 中 
ListBox1.Removeltem 是 删除 列表 框 中 当前 内 容 的 方法 ; ListBox1.ListIndex 是 列表 框 中 当前 选 
中 项 目的 序列 号 Index。 


@8j 按照 同样 的 方法 设置 列表 框 ListBox2 的 双击 事件 ， 即 在 其 双击 事件 处 理 程序 代码 框架 
中 输入 如 下 代码 : 
Private Sub ListBox2 DblClick(ByVal Cancel As MSForms.ReturnBoolean) 
ListBox2.RemoveItem ListBox2.ListIndex 
"设置 当 双 击 列表 框 的 项 目 时 系统 自动 删除 当前 项 目 
End Sub 
@gj 此 时 ,运行 【打开 并 保护 多 个 工作 表 】 用 户 窗 体 ， 在 打开 的 【打开 并 保护 多 个 工作 表 】 
有 户 窗 体 中 ， 双 击 列表 框 中 自动 出 现 的 “销售 部 员工 资料 表 ” 选 项 ， 系 统 即 可 自动 删除 该 列表 框 
中 的 显示 内 容 ， 如 图 15-82 所 示 。 


漂 
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打开 并 保护 多 个 工作 表 


请 选择 已 保护 的 工作 表 


15-81 在 列表 框 中 显示 用 户 选择 的 下 拉 列 表 选 项 图 15-82 ”删除 列表 框 中 显示 的 内 容 


【提示 】〗 双 击 事件 是 将 列表 框 中 显示 的 内 容 删除 掉 ， 但 是 在 其 下 拉 列 表 中 仍然 包含 该 项 目 内 容 ， 如 图 


15-83 所 示 。 
打开 并 保护 多 个 工作 雪 


请 达 择 已 保护 的 工作 表 


图 15-83 下拉 列 表 保留 项 目 


UL 加 在 VBA 代码 窗口 中 ,双击 【打开 并 保护 多 个 工作 表 】 窗 体 中 的 【保护 】 按 钮 ， 进 入 其 
代码 编辑 窗口 ， 在 该 代码 窗口 中 输入 如 下 代码 ， 如 图 15-84 所 示 。 


Private Sub CommandButtonl Click() 
Dim pwd As String，i As Integer ' 定 义 一 个 用 来 获得 密码 的 字符 串 变 量 pwd 
If ComboBox1l.Text <> "" Then 
pwd = InputBox (" 请 输入 保护 密码 "， "加 密 ") ' 输 入 保护 密码 
If pwd = ""” Then 
Exit Sub ' 密 码 为 空 则 直接 退出 
End If 
For i = 0 To ListBoxl.ListCount - 1 
Sheets (ListBoxl.List (i)).Protect pwd ' 对 列表 框 中 显示 的 所 有 表格 加 密 
Next i 
MsgBox "加 密 成 功 ! " 
Else 
MsgBox "请 选择 需要 保护 的 工作 表 ! " 
Exit Sub 
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End If 
End Sub 


到 


和 特定 生 于 民 二 开明 pnd 


图 15-84 【保护 】 按 钮 的 响应 程序 


这 段 代码 是 使 用 If 语句 判断 当前 组 合 框 中 是 否 有 工作 表 人 信息， 如果 有 ， 则 首先 使 用 
InputBox 方法 获取 保护 密码 ， 然 后 再 使 用 Sheets (ListBox1.List (i)) .Protect pwd 语句 对 列表 
框 中 显示 的 所 有 工作 表 进 行 保护 操作 。 同 理 , 也 可 以 使 用 Sheets (ListBox1.List (i)) .Unprotect 
pwd 语句 对 已 经 被 保护 的 工作 表 撤 销 保护 。 


咱 贿 按照 同样 的 方法 , 设置 【打开 】 按 钮 的 事件 处 理 程序 ， 即 在 其 代码 窗口 中 输入 下 面 的 程 
序 代码 ， 如 图 15-85 所 示 。 


Private Sub CommandButton2 Click() 
Dim pwd As String，i Rs Integer ' 定 义 一 个 用 来 获得 密码 的 字符 串 变 量 pwd 
If ComboBox2 .Text = "" Then 
MsgBox "请 选择 已 经 受 保护 的 工作 表 ! " 
Exit Sub 
Else 
pwd = InputBox ("请 输入 解密 密码 "， "解密 ") ' 输 入 解密 密码 
IE pwd = "" Then Exit Sub ' 密 码 为 空 则 直接 退出 
For i = 0 To ListBox2.ListCount - 1 
Sheets (ListBox2.List(i)) .Unprotect pwd ' 对 列表 框 中 显示 的 所 有 表格 解密 
Next i 
MsgBox "解密 成 功 ! " 
End If 
End Sub 
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图 15-85 【打开 】 按 钮 的 响应 程序 
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到 此 ， 就 完成 了 保护 多 个 工作 表 的 VBA 代码 的 编辑 过 程 。 为 了 快捷 方便 地 运行 该 VBA 
代码 ， 可 以 为 其 设置 运行 方式 。 
3. 运行 VBA 代码 打开 并 保护 多 个 工作 表 

完成 了 使 用 Excel VBA 设计 【打开 并 保护 多 个 工作 表 】 窗 体 的 过 程 后 ， 就 可 以 运行 该 窗 
体 ， 检 验 其 功能 。 

使 用 VBA 代码 保护 工作 表 ， 具 体 的 操作 步骤 如 下 。 


@ 贡 在 VBA 代码 窗口 中 ,选择 【运行 】> 【运行 子 过 程 /用 户 窗 体 】 菜单 项 ， 即 可 弹出 【打开 并 
保护 多 个 工作 表 】 窗 体 ， 在 【请 选择 要 保护 的 工作 表 】 下 拉 列 表 中 显示 了 所 有 未 被 保护 的 工作 表 , 在 
其 中 选择 “考勤 记录 表 ” 选 项 ， 即 可 在 其 右 侧 上 方 列表 框 中 显示 所 选 内 容 ， 如 图 15-86 所 示 。 


打开 并 保护 多 个 工作 表 


图 15-86 选择 “考勤 记录 表 ” 选 项 
【提示 】〗 此 时 若 不 想 保护 该 “考勤 记录 表 ” 工 作 表 ， 只 需 双击 该 选项 即 可 将 其 从 列表 框 中 删除 。 


@ 到 选中 列表 框 中 的 “考勤 记录 表 ” 工 作 表 ， 然 后 单 击 【 保 护 】 按 钮 ， 系 统 将 自动 弹出 【加 
密 】 对 话 框 ,输入 保护 密码 “123456” ， 如 图 15-88 所 示 。 
@Q 旨 单 击 【 确 定 】 按 钮 ， 系 统 将 自动 弹出 加 密 成 功 的 提示 信息 ， 如 图 15-89 所 示 。 


你 


Hicrosoft Excel 轿 | 


图 15-88 【加 密 】 对 话 框 图 15-89 ”提示 加 密 成 功 


上 @ 缚 单 击 【 确 定 】 按 钮 ， 退 出 该 对 话 框 ,然后 关闭 【打开 并 保护 多 个 工作 表 】 对 话 框 ， 返 下 
“考勤 记录 表 ” 工 作 表 中 ， 此 时 如 果 双 击 该 工作 表 上 的 任意 单元 格 或 试图 修改 该 工作 表 ， 系 统 则 
会 弹出 如 图 15-90 所 示 的 警告 信息 。 


起 
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了 icrosoft Excel 


您 试图 更 改 的 单元 格 或 图 表 受 保护 ， 因 而 是 只 读 的 。 


人 若 要 俯 玫 归 六 划 元 咎 到 国家 ， 请 先 使 用 “ 搬 消 工作 表 保护 ”命令 (在 “审阅 ”选项 卡 的 “更 改 ” 钥 中 ) 来 取消 保护 。 可 能 会 提示 您 输入 密 
15-90 ”警告 信息 


@ 国 在 VBA 代码 编辑 窗口 中 再 次 运行 【打开 并 保护 多 个 工作 表 】 用 户 窗 体 ， 此 时 在 【请 选 
择 已 保护 的 工作 表 】 下 拉 列 表 中 即 可 显示 已 被 保护 的 “考勤 记录 表 ” 工 作 表 ， 如 图 15-91 所 示 。 

(@@ 接着 选择 【考勤 记录 表 】 选 项 , 即 可 在 其 右 侧 下 方 列表 框 中 显示 出 所 选 结果 , 如 图 15-92 
所 示 。 


打开 并 保护 多 个 工作 表 


证 拓 已 保护 的 工作 表 


图 15-91 显示 已 被 保护 的 工作 表 图 15-92 选择 “考勤 记录 表 ” 选 项 
@ 到 单 击 【打开 】 按 钮 ， 系 统 将 自动 弹出 【解密 】 对 话 框 ， 在 【请 输入 解密 密码 】 文 本 框 中 
输入 密码 “123456 ， 如 图 15-93 所 示 。 
@ 旨 j 单 击 【 确 定 】 按 钮 ， 系 统 将 自动 弹出 解密 成 功 的 提示 信息 ， 如 图 15-94 所 示 。 此 时 返 
到 “考勤 记录 表 ” 工 作 表 中 ， 将 会 看 到 该 工作 表 已 被 撤销 保护 。 


回 


Microsoft Excel 网 | 


图 15-93 【解密 】 对 话 框 图 15-94 ”提示 解密 成 功 


t@9j 如 果 在 【和 解密】 对话 框 中 输入 了 错误 的 解密 密码 ， 如 图 15-95 所 示 ， 单 击 【 确 定 】 按 钮 
后 ， 系 统 将 会 弹出 一 个 错误 提示 信息 对 话 框 ， 如 图 15-96 所 示 。 


另外 ,如 果 用 户 没有 选择 需要 保护 的 工作 表 ， 而 直接 单 击 【保护 】 按 钮 ， 系 统 将 弹出 “请 
选择 需要 保护 的 工作 表 ” 提 示人 信息， 如 图 15-97 所 示 ; 如 果 用 户 没 有 选择 需要 打开 的 工作 表 ， 
而 直接 单 击 【打开 】 按 钮 ， 系 统 将 自动 弹出 “请 选择 已 经 受 保护 的 工作 表 ” 提 示 信 息 ， 如 图 
15-98 所 示 。 
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图 15-95 输入 错误 的 解密 密码 


Nicrosoft Excel 区] 
请 选择 需要 保护 的 工作 表 ? 


15-97 ”提示 选择 需要 保护 的 工作 表 


1 


综合 实 


Microsoft Visual Basic 


运行 时 错误 “1004” 


您 所 提供 的 密码 不 正确 。 请 检查 CAFS LOCK 键 的 状态 ,并 确认 
使 用 了 正确 的 大 小 写 。 


嫩 束 加 
图 15-96 ”提示 密码 错误 


Hicrosoft Excel ” 辆 | 


请 选择 已 经 受 保护 的 工作 表 4 


图 15-98 ”提示 选择 受 保护 的 工作 表 


实战 一 一 使 用 VBA 综 合 操作 文件 


文件 的 操作 包括 创建 文件 、 读 取 文 件 中 的 数据 和 获取 文件 属性 信息 。 本 章 的 综合 实战 将 
包含 实现 这 些 操作 的 VBA 代码 。 具 体操 作 步 骤 如 下 。 


全 晶 打 开 一 个 Excel 表单 ， 在 Sheetl 表单 中 插入 一 个 文本 框 和 按钮 控件 ， 如 图 15-99 所 示 。 


EE B 


C 


a 

， 本 于 
3 
4 人 | 
5 
6 
7 
8 


创建 文件 


15-99 ”插入 文本 框 和 按钮 控件 


@ 到 双击 【创建 文件 】 按 钮 控件 ， 进 入 Sheetl 表单 的 代码 编写 窗 


Private Sub CommandButton1l Click() 
Dim fso As New FileSystemObject 
Dim mystr As String 
mystr = TextBoxl .Text 
IE mystr = "" Then 


， 输 入 代码 如 下 : 


MsgBox "请 输入 文件 位 置 及 名 称 !"， ， "提示 对 话 框 " 


Else 
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Set fill = fso.CreateTextFile(mystr, True) 
MsgBox "成 功 创建 文件 ,文件 位 置 及 名 称 为 " + mystr，，"" 
£fill.Close 
End If 
End Sub 


@ 旬 代码 输入 完毕 ， 返回 Excel 表单 ， 在 文本 框 中 输入 要 创建 的 文件 的 位 置 和 名 称 ， 输 入 完 
成 之 后 ， 单 击 【 确 定 】 按 钮 ， 执 行文 件 创建 操作 ， 如 图 15-100 所 示 。 创建 成 功 之 后 ， 将 弹出 提示 


信息 ， 如 图 15-101 所 示 。 
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A B c 


C:\textfile, txt 


[ax# | 成 功 创建 文件 , 文件 位 置 及 名 称 为 C: \textfile txt 


vonaron -= 


zEE 
由本 本 


MI Sheetl LShestz Sheet3 AT 5 


15-100 ”输入 创建 文件 路 径 和 名 称 图 15-101 创建 成 功 消息 


(@ 顷 打开 Sheet2 表单 ， 插 入 文本 和 按钮 控件 ， 如 图 15-102 所 示 。 
@ 辐 在 textfile.txt 文件 中 输入 一 些 表格 数据 ， 如 图 15-103 所 示 。 


2 
3 加 textfile, txt - 记事 本 辐 回 忆 
下 文件 到， 机 名 他 ) 粘 式 0) 查看 中 帮助 00 
性别, 籍贯， 
7 读 了 文件 数据 蚌 , 女 ,河南 ,18 
9 
10 
i 
12 
13 
14 
15 
ra so EN ET 
图 15-102 ”插入 读 取 文件 数据 控件 图 15-103 ”向 文件 中 插入 数据 


@@j 双击 【 读 取 文 件数 据 】 按 钮 控件 ， 进 入 Sheet2 表单 的 代码 编写 窗口 ， 输 入 代码 如 下 : 


Private Sub CommandButtonl Click() 
Dim Filename As String 
Dim x As Long，Y As Integer ' 相 对 于 活动 单元 格 的 偏 移 量 
Dim str As String, temp As String 
Dim Data As Variant 
Dim i As Integer 
On Error Resume Next ' 忽 略 错误 ， 执行 错误 语句 之 后 的 语句 
Filename = " D:\Employee\ 员 工 信 息 .txt " 
Open Filename For Input As #1 
If Err <> 0 Then 
MsgBox "无 法 找到 " & Filename, vbCritical, "ERROR" 
Exit Sub 


End If 


x=0 
We 0 
Ete 全 演 时 


Application.ScreenUpdating = False "忽略 屏幕 刷新 
Do Until EOF(1) 
Line Input #1, Data 
For i = 1 To Len(Data) 
temp = Mid(Data，i，1) "获取 Data 中 的 第 i 个 字符 
If temp = "," Then ' 以 逗号 为 分 隔 符 
ActiveCell .Offset (x, y) = str 


DA 
str = "" 
Else 


str = str & temp 
If i = Len(Data) Then ' 文 本 文件 中 一 行 的 最 后 一 个 字符 
ActiveCell.Offset (x, y) = st 
SE 
Exit For 
End If 
End If 
Next i 
y=0 
过 
Loop 
Close #1 ' 关 闭 文本 文件 
End Sub 


@ 天 返回 Sheet2 工作 表 中 ,， 单 击 【 控 件 】 选 项 组 中 的 【退出 设计 模式 】 按 钮 图 退出 命令 按钮 的 
设计 模式 ,首先 选中 一 个 单元 格 , 这 里 选中 B6 单 元 格 , 然 后 单 击 【 读 取 文件 数据 ] 按 钮 , 即 可 将 textfile.txt 
文本 文件 中 的 数据 存放 在 以 活动 单元 格 B6 开始 的 单元 格 中 ， 如 图 15-104 所 示 。 

@gj 打开 Sheet3 工作 表 ， 插 入 文本 框 和 按钮 控件 ， 如 图 15-105 所 示 。 


A B 可 了 下 | a | en E 允 


: | mt 
3 

4 CrtextTile tat 
5 
6 re 
‘2 


a 
3 
ET :| 
7 A 全， ] 
这 | 河 1 al 
华为 着 ” 女 “河南 18 | 
9 毕 入 。 女 山本 21 9 
10 王政 男 山东 20 
1 随 风 尺 女 次 训 22 二 
12 点 元 旭 。” 男 北京 z| 辐 固 
13 刘 普 女 江西 20 es 
地 起 琪 。 田 近东 al 中 
FU 1 
Sl Es 上 
Et /RE [ | Wm se mes) ae G7 MN 


图 15-104 读 取 文本 文件 中 的 数据 图 15-105 插入 获取 文件 属性 控件 
@gj 双击 【获取 文件 属性 】 按 钮 控件 ， 进 入 Sheet3 工作 表 的 代码 编写 窗口 ， 输 入 代码 如 下 : 


Private Sub CommandButtonl Click() 
Dim fso Rs New FileSystemObject 
Dim fill Rs File 
Dim mystr As String 
Dim myfilename As String 
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myfilename = TextBox1l .Text 

If fso.FileExists (myfilename) Then 
Set fill = fso.GetFile (myfilename) 
mystr = "" 

mystr 


mystr & "文件 名 : " & fill.Name & vbCrLf 


A 


mystr = mystr & "文件 大 小 : " & fil1.Size & vbcrLf 

mystr = mystr & "文件 创建 时 间 : " & fill.DateCreated & vbCrLf 

mystr = mystr & "文件 最 后 访问 时 间 : " & fill.DateLastAccessed & vbCrLf 
mystr = mystr & "文件 最 后 修改 时 间 : " & fill.DateLastModified & vbCrLf 
mystr = mystr & "文件 路 径 : " & fill.Path & vbCrLf 

mystr = mystr & "文件 所 在 的 目录 : " & fill.ParentFolder & vbCrLf 
mystr = mystr & "文件 类 型 : " & fill.Type & vbCrLf 


Cells (9，1) = "文件 名 称 " 
Cells (9，2) = "文件 类 型 " 
Cells (9，3) = "大 小 " 

Cells (9，4) = "修改 日 期 " 
Cells (9，5) = "文件 路 径 " 


cells(10，1) = fill.Name "文件 的 名 称 
Cells(10，2) = fill.Type 'fso.GetFile(Directory & s) .Type ' 文 件 的 类 型 
Cells(10, 3) = fil1.Size & "bytes" 'Trim(str(Int(FileLen(Directory & s) 
/ 1024) + 1)) & ™ KB" 

Cells(10，4) = fil1.DateLastModified ' 修 改 时 间 
cansio 5s) empaen 

Else 

MsgBox "你 要 查看 的 文件 不 存在 , 请 重新 输入 !" 

End If 

End Sub 


好 0 返回 Sheet3 工作 表 中 ， 单 击 【 控 件 】 选 项 组 中 的 【退出 设计 模式 】 按 钮 图 退出 命令 按钮 的 
设计 模式 ,首先 选中 一 个 单元 格 ,这 里 选中 B6 单元 格 ,然后 单 击 【获取 文件 属性 ] 按 钮 , 即 可 将 textfile.txt 
文本 文件 的 属性 信息 存放 在 以 活动 单元 格 A9 开始 的 单元 格 中 ， 如 图 15-106 所 示 。 


B EF D 下 本 


a 
和 Ci\tertfile. txt 

6 

了 获取 文件 属性 人 
日 


立 件 名 称 文件 类 型 大 小 您 改 日 期 文件 路 径 
1D textftle. txt 文本 文档 167bytes 2012-3-4 19:43C:\textfile.t: 


1 
4 VM] shoe ss0t] sheot? /0 Hal = a 


15-106 ”获取 文件 属性 信息 
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15.8 
高 手 私房 菜 


技巧 1: 解决 无 法 导入 文本 的 问题 


在 将 文本 导入 工作 表 的 操作 中 ， 在 单 击 【 导 入 文本 数据 】 按 钮 时 ， 为 什么 总 弹出 错误 提 
示人 信息， 提示 用 户 无 法 找到 要 导入 文件 的 路 径 ? 

出 现 这 种 情况 时 , 首先 查看 导入 文件 的 存放 路 径 是 否 输入 正确 , 在 输入 文件 存放 路 径 时 ， 
应 根据 实际 情况 相应 地 调整 存放 路 径 的 语句 ，Filename =“D:\Employee\ 员 工 信 息 .txt”。 快 速 
查看 文件 存放 路 径 的 方法 是 ， 右 击 “ 数 据 .txt” 文 本 文件 ， 在 弹出 的 快捷 菜单 中 选择 【属性 】 
菜单 项 ， 打 开 【 数 据 属性 】 对 话 框 ， 在 【常规 】 选 项 卡 中 的 【位 置 】 项 中 用 户 可 以 看 到 该 文 
本 文件 所 在 位 置 的 完整 路 径 ， 然 后 使 用 这 个 完整 路 径 蔡 换 上 述 代码 中 的 数据 路 径 即 可 。 


技巧 2: 删除 多 余 保 护 的 工作 表 


在 使 用 Excel VBA 实现 对 多 个 工作 表 保护 操作 时 ， 误 单 击 了 组 合 框 中 的 选项 ， 将 不 需要 
保护 的 工作 表 添加 到 列表 框 中 ， 如 何 才能 将 不 需要 保护 的 工作 表 从 列表 中 删除 掉 ? 

要 在 列表 中 删除 不 需要 保护 的 工作 表 ， 可 以 设置 列表 框 双击 事件 ， 即 在 代码 窗口 中 输入 
ListBox1_DblClick 事件 处 理 程序 的 代码 : 

Private Sub ListBox1l DblClick(ByVal Cancel As MSForms.ReturnBoolean) 

ListBox1.RemoveItem ListBox1.ListIndex 


"设置 当 双 击 列表 框 的 项 目 时 系统 自动 删除 当前 项 目 
End Sub 


输入 这 段 代码 后 ， 再 次 双击 列表 框 中 显示 的 内 容 时 ， 系 统 都 会 自动 将 其 删除 。 
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员工 的 信息 表 中 包含 了 员工 的 各 种 重要 的 个 人 信息 ， 如 员工 的 姓名 、 学 历 、 编 号 、 职 位 
等 。 管 理 员 工 信 息 是 企业 管理 中 的 重要 部 分 。 本 章 介绍 的 员工 信息 管理 功能 包括 设计 员工 信 
息 表 的 录入 窗 体 、 编 写 VBA 程序 实现 逻辑 管理 。 利 用 这 些 技术 可 以 实现 让 用 户 通 过 窗 体 来 
录入 员工 的 基本 信息 ， 通 过 本 章 的 学 习 ， 读 者 可 以 熟练 掌握 VBA 中 常用 控件 的 应 用 方法 。 


16.1 
使 用 窗 体 录 入 报表 数据 


窗 体 有 两 种 功能 ， 一 种 是 提供 展示 平台 ， 另 一 种 就 是 实现 用 户 的 业务 逻辑 的 交互 。 本 章 
设计 的 员工 信息 管理 功能 将 使 用 窗 体 来 收集 员工 的 基本 信息 。 读 者 在 添加 完 各 种 窗 体 控件 之 
后 ， 可 以 设置 控件 自身 的 各 种 属性 、 事 件 和 方法 ， 并 为 这 些 控件 编写 VBA 控制 代码 。 本 节 
将 介绍 创建 窗 体 和 实现 窗 体 与 工作 短 之 间 交 换 数 据 的 操作 过 程 。 


16.1.1 创建 用 户 窗 体 


创建 用 户 窗 体 是 实现 员工 信息 管理 的 第 一 步 ， 创 建 好 窗 体 之 后 ， 用 户 才 能 通过 窗 体 编写 
VBA 代码 来 管理 员工 的 个 人 基本 信息 。 下 面 首先 来 介绍 创建 窗 体 的 过 程 。 


@ 贡 创建 “公司 员工 个 人 信息 表 "， 表 中 的 内 容 如 图 16-1 所 示 。 创 建 完成 之 后 切换 到 【开发 
工具 】 选 项 卡 ， 单 击 【 代 码 】 选 项 组 中 的 Visual Basic 按钮 ， 打开 VBA 代码 编辑 窗口 。 

Ag 打开 VBE 环境 之 后 , 依次 选择 【插入 】> 【用户 窗 体 ] 菜单 命令 , 插入 一 个 名 为 UserForml 
的 用 户 窗 体 ， 然 后 在 窗 体 的 【属性 】 窗 口中 修改 Caption 属性 值 为 “录入 员工 信息 "， 完 成 之 后 ， 
该 窗 体 的 标题 文本 将 显示 为 输入 的 文字 ， 如 图 16-2 所 示 。 

@ 划 单 击 【工具 箱 】 窗 口中 【框架 】 按 钮 外， 在 名 称 为 UserForml 的 用 户 窗 体 中 绘制 一 个 
框架 控件 ， 并 修改 其 【属性 】 窗 口中 的 Caption 属性 值 为 “性 别 "， 更 改 该 框架 的 显示 标题 。 

辐 在 【性 别 】 框架 中 添加 员工 性 别 信息 。 单 击 【 工 具 箱 】 窗 口中 的 【 单 选 按钮 】 控 件 “|， 
在 【性 别 】 框 架 中 绘制 两 个 【 单 选 按钮 】 控件， 并 修改 单 选 按钮 的 Caption 属性 值 分 别 为 “ 男 ” 
和 “ 女 ”， 如 图 16-4 所 示 。 

@@ 国 接 下 来 按照 同样 的 方法 在 用 户 窗 体 上 添加 【学 历 ] 和 【员工 职位 】 框 架 以 及 各 个 框架 下 
相应 的 单 选 按钮 ， 添 加 之 后 的 UserForml 窗 体 如 图 16-5 所 示 。 
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国 二 -ee visaal rar:c for hpplications - 录入 报到 全息 .xz1sa [说 计 ] - [..- 周 闸 国 
油 XH Wi WV NY WO) BD) EPR II 只 四 R82FO 


1 
员工 搞 号 员工 姓名 出 生年 月 ”性 别 。。 员工 职位 ”学历 工作 时 间 


"a 
图 16-1 公司 员工 个 人 信息 表 


| a 人 Wey sD RD me Se IAD 39 ecw 

| mt 2 
[CH 

ET 四 


16-3 ”添加 框架 控件 图 16-4 向 “性 别 ”框架 中 的 添加 两 个 选项 按钮 


【注意 】〗】 添 加 【员工 职位 】〗】 框 架 中 的 职位 单 选 按钮 时 ， 因 为 选项 比较 多 ， 所 以 添加 的 控件 的 位 置 可 能 不 
整齐 ， 为 了 使 添加 的 单 选 按钮 保持 整齐 ， 需 要 对 这 些 控件 的 位 置 进行 调整 。 首 先 全 部 选中 【员工 职位 】 
框架 中 的 这 些 单 选 按钮 (方法 是 按 住 Ctrl 键 ， 然 后 依次 选中 这 些 单 选 按 钮 ) ， 选 中 之 后 ， 在 单 选 按钮 上 
右 击 ， 在 弹出 的 快捷 菜单 中 选择 【统一 尺寸 】> 【两 者 都 相同 〗 菜 单 命令 ， 这 样 就 可 以 将 选中 的 所 有 
单 选 按钮 设置 为 统一 的 大 小 ， 如 图 16-6 所 示 。 


CE 
wo 了 


图 16-5 添加 其 他 框架 及 其 选项 16-6 统一 控件 大 小 
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然后 在 选中 的 单 选 按钮 上 再 次 右 击 ， 在 弹出 的 快捷 菜单 中 选择 【对 齐 】>【 对 齐 到 网 格 】 
菜单 命令 ， 将 所 有 选中 的 单 选 按钮 设置 为 统一 的 对 齐 方 式 ， 如 图 16-7 所 示 。 
最 后 使 用 鼠标 拖 动 控件 调整 各 单 选 按钮 的 位 置 ， 调 整 之 后 的 效果 如 图 16-8 所 示 。 


16-7 【对 齐 到 网 格 】 命 令 图 16-8 ”调整 各 单 选 按钮 的 位 置 


@@ 有 些 员工 信息 是 不 能 选择 输入 的 ， 如 员工 的 姓名 、 编 号 等 。 接 下 来 , 添加 一 些 可 以 让 
户 手动 输入 数据 的 控件 。 


首先 ， 单 击 【工具 箱 】 窗 口中 【标签 】 按 钮 全， 按 住 鼠 标 左 键 在 用 户 窗 体 中 拖 动 鼠标 ， 
绘制 一 个 标签 控件 ， 修 改 其 Caption 属性 值 为 “员工 编号 ”， 然 后 修改 BorderStyle 属性 值 为 下 
拉 列 表 中 的 1-fmBorderStyleSingle 选项 ， 表 示 该 标签 显示 边框 ， 如 图 16-9 所 示 。 

然后 ， 单 击 【 工 具 箱 】 窗 口中 【文本 框 】 按 钮 串 ， 在 用 户 窗 体 中 绘制 一 个 文本 框 控件 ， 
如 图 16-10 所 示 。 


图 16-9 添加 标签 控件 图 16-10 添加 文本 框 控件 


按照 同样 的 方法 ， 在 用 户 窗 体 中 继续 添加 【员工 姓名 【出 生年 月 】 和 【入 职 日 期 】 标 
签 以 及 与 其 相对 应 的 文本 框 ， 如 图 16-10 所 示 。 


356 


第 16 章 ”开发 员工 信息 表 


上 @ 天 接 下 来 ， 添 加 操作 确认 与 取消 按钮 ， 单 击 【工具 箱 】 窗 口中 【命令 按钮 】 二 |， 在 用 户 窗 体 
上 绘制 两 个 命令 按钮 控件 ， 分 别 修改 按钮 的 Caption 属性 值 为 “确定 ”和 “取消 "， 如 图 16-11 所 示 。 


图 16-10 添加 其 他 标签 以 及 与 其 对 应 的 文本 框 16-11 添加 “确定 ”和 “取消 ”按钮 


16.1.2 窗 体 与 工作 簿 的 数据 交换 


完成 用 户 窗 体 的 创建 之 后 ， 下 面 就 需要 编写 VBA 代码 来 实现 窗 体 与 工作 竹中 数据 的 交 
换 过 程 ， 操 作 步 又 如 下 。 


和 在 VBE 环境 中 依次 选择 【插入 】> 【模块 】 菜 单项 ， 插 入 模块 1， 在 该 模块 代码 编辑 窗 
口中 添加 下 面 的 程序 。 


Option Explicit 


Public em num As String  ' 定 义 用 于 记录 “员工 编号 ”的 变量 
Public em name Rs String ' 定 义 用 于 记录 “员工 姓名 ”的 变量 
Public em sex Rs String  ' 定 义 用 于 记录 “性 别 ” 的 变量 
Public em born As String ' 定 义 用 于 记录 “出 生年 月 ”的 变量 
Public em degree As String ' 定 义 用 于 记录 “学 历 ” 的 变量 
Public em year As String  ' 定 义 用 于 记录 “工作 时 间 ” 的 变量 
Public em job As String ' 定 义 用 于 记录 “员工 职位 ”的 变量 
Sub InitEmVar () "初始 化 全 局 变量 

em num = "" 

em name = "~" 

em sex = "" 

em born = "" 

em degree = "" 

em year = "" 

em job = "" 
End Sub 
Sub getOneRecord() "录入 功能 实现 

Dim MsgBoxRst As VbMsgBoxResult 

Dim count As Integer 


357 


X 


Wh 


[PT 天 入 门 与 实战 


"提示 ") 


358 


If UserForm]l.TextBoxl1.Text = "" Or UserForml .TextBox2 .Text = 
UserForm] .TextBox3.Text = "" Or UserForml .TextBox4.Text = 
em sex = "" Or em degree = "" Or em job = "" Then 
MsgBoxRst = MsgBox ("请 输入 完整 的 信息 ! "，vbOKOnly & vbInformation，" 系 统 


Exit Sub 
End If 
count = 0 "为 变量 赋 初 值 
Range ("R2") .Select 
"判断 是 否 输入 重复 的 员工 编号 
Do Until Selection.Offset(count，0) .Value = "" 
IE UserForml .TextBox1l.Text = Selection.0ffset(count，0) .Value Then 
MsgBoxRst=MsgBox ("员工 编号 重复 , 请 重新 输入 !"， vbOKOn1y&vbInformationv 


Exit Sub 
End If 
count = count + 1 


Loop 


With UserForml 


em num = .TextBoxl.Text 
em name = .TextBox2.Text 
em born = .TextBox3.Text 
em year = .TextBox4.Text 
End With 
count = 0 


Range ("R2") .Select 
Do Until Selection.Offset (count，0) .Value = "" 
Count = count + 1 
Loop 
' 向 工作 表单 中 插入 一 条 员工 个 人 信息 
Selection.Offset (count, 0).Value = em num 
Selection.Offset (count, 1).Value = em name 
Selection.Offset (count, 2) .Value = em born 
Selection.Offset (count, 3) .Value = em sex 
Selection.Offset (count, 4).Value = em job 
Selection.Offset (count, 5) .Value = em degree 
Selection.Offset (count, 6) .Value = em year 
Call InitEmVar 
If MsgBox (" 是 否 继续 录入 ?"， vbYesNo， "继续 录入 ") = vbNo Then 
UserForm1l .Hide 
Else 
With UserForml 
.TextBoxl1.Text = "" 
.TextBox2 .Text 人 
.TextBox3 .Text 
.TextBox4 .Text 
End With 
End If 
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End Sub 

该 段 代 码 开始 定义 了 几 个 保存 员工 个 人 信息 的 全 局 变量 ， 然 后 利用 InitEmVar 过 程 对 这 
些 全 局 变量 初始 化 。getOneRecord 过 程 的 作用 是 将 窗 体 上 各 种 控件 的 值 转换 成 用 户 可 以 理解 
的 员工 信息 并 保存 到 Excel 工作 表 相 应 的 单元 格 中 。 

@ 到 双击 用 户 窗 体 中 【确定 】 按 钮 ， 进 入 该 按钮 的 Click 事件 代码 编辑 窗口 ， 在 Click 
中 调用 getOneRecord 过 程 ， 添 加 代码 如 下 。 


jl 


其 


件 


Private Sub CommandButton1l_ Click() 


getOneRecord 
End Sub 


这 段 代 码 表示 当 单 击 【 确 定 】 按 钮 时 , 系统 将 调用 getOneRecord 过 程 插入 一 条 员工 信息 。 


@ 旨 双击 用 户 窗 体 中 的 【取消 】 按 钮 ， 进 入 该 按钮 的 Click 事件 代码 编辑 窗口 ， 在 Click 事 
件 中 调用 InitEmVar 过 程 并 隐藏 添加 员工 信息 的 用 户 窗 体 UserForm1， 添 加 代码 如 下 。 


a 


Private Sub CommandButton2 Click() 
Call InitEmVar 

UserForm1l .Hide 

End Sub 


这 里 UserForml 的 Hide 方法 表示 隐藏 该 窗 体 。 


@ 纸 接 下 来 介绍 如 何 处 理 3 个 框架 中 的 各 个 单 选 按钮 。 在 这 里 分 别 双 击 这 些 单 选 按钮 ,进入 
其 Click 事件 的 代码 编辑 窗口 ， 然 后 分 别 在 其 代码 窗口 中 添加 与 之 相对 应 的 代码 ， 每 个 单 选 按钮 
的 Click 事件 都 将 保存 员工 的 一 项 个 人 信息 ， 具 体 代 码 如 下 : 


Private Sub OpPtionButtonl Click() 
em sex = " 男 " 
End Sub 


Private Sub OptionButton2 Click() 
em sex = " 女 " 
End Sub 


Private Sub OptionButton3 Click() 
em degree = "研究 生 " 
End Sub 


Private Sub OptionButton4 Click() 
em degree = "本 科 " 
End Sub 


Private Sub OptionButton5 Click() 
em degree = "大 专 " 
End Sub 


Private Sub OptionButton6 Click() 
em job = "经 理 " 
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现在 已 经 完成 了 窗 体 数据 与 工作 短 中 数据 交换 的 VBA 代码 的 编写 。 下 面 将 介绍 如 何在 
Excel 表单 中 调用 用 户 窗 体 。 


@ 国 返回 到 Excel 中 Sheetl 工作 表 ， 切 换 到 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 项 组 的 【 插 
入 】 下 拉 列 表 中 单 击 【 命 令 按钮 】 按 钮 二 | (ActiveX 控件 ) ， 然 后 拖 动 鼠标 在 工作 表 的 适当 位 置 绘 
制 一 个 命令 按钮 控件 ， 并 修改 “名 称 ” 和 Caption 两 个 属性 的 值 ， 两 个 值 都 为 “输入 个 人 信息 ， 


如 图 16-12 所 示 。 
@ 团 单 击 【 设 计 模 式 】 按 钮 ， 然 后 双击 【输入 个 人 信息 】 按 钮 控件 ， 进 入 该 按钮 的 Click 事 
件 代码 编辑 窗口 ， 在 其 中 添加 调用 用 户 窗 体 的 VBA 代码 ， 如 图 16-13 所 示 。 
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Optior Erplicit 


iate sub 输入 个 人 信息 click0 
th me 
了 


员工 编号 员工 姓名 出 生 : 


Te me Ee 


16-12 ”插入 按钮 控件 图 16-13 编写 按钮 Click 事件 代码 


@ 殉 返回 Excel 表单 ， 再 次 单 击 【 设 计 模式 】 按 钮 靖 退 出 按钮 的 设计 状态 ， 完 成 用 户 窗 体 调 
用 代码 的 编写 。 此 时 可 以 单 击 工作 表 中 的 【输入 个 人 信息 】 按 钮 ,打开 【录入 员工 信息 】 对 话 框 ， 
结果 如 图 16-14 所 示 ， 至 此 已 经 完成 所 有 代码 的 编写 了 . 
@8j 现在 ,用 户 已 经 可 以 使 用 编写 好 的 程序 来 录入 员工 的 个 人 信息 了 , 在 打开 的 对 话 框 中 选 
选 按钮 或 者 在 文本 框 中 输入 员 了 


| Fi ws 


EE 
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[2 
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| | 
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图 16-14 【录入 员工 信息 】 对 话 框 图 16-15 输入 员工 数据 


输入 完毕 ， 单 击 【确定 】 按 钮 ， 即 可 将 各 项 员工 信息 导入 到 Sheetl 工作 表 中 。 信 息 导入 
成 功 之 后 , 会 弹出 一 个 提示 窗口 , 提示 用 户 是 否 要 继续 录入 数据 , 如 图 16-16 所 示 , 单 击 【是 】 
按钮 将 返回 【录入 员工 信息 】 对 话 框 ， 单 击 【和 否 】 按 钮 将 退出 【录入 员工 信息 】 对 话 框 并 返 
回 Excel 表格 。 返 回 之 后 ， 便 可 在 工作 表 中 看 到 录入 的 员工 信息 ， 如 图 16-17 所 示 。 
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"We Fm 2 HR F044 | SD on 上 上 » 
图 16-16 【继续 录入 】 对 话 框 图 16-17 显示 录入 的 员工 信息 


【提示 】 在 程序 代码 中 ， 对 可 能 出 现 的 错误 进行 了 一 些 处 理 。 例 如 ， 如 果 在 【录入 员工 信息 〗 对 话 框 中 
输入 了 不 完整 的 信息 或 没有 输入 任何 信息 ， 单 击 〖【 确 定 〗 按 钮 后 系统 将 弹出 消息 提示 对 话 框 ， 提 示 用 
户 “请 输入 完整 的 信息 ”， 如 图 16-18 所 示 。 如 果 用 户 输入 的 “员工 编号 ”已 经 存在 ， 当 单 击 对 话 框 中 
的 【确定 】 按 钮 时 ， 系 统 会 弹出 【提示 】〗 消 息 框 ， 提示 用 户 “ 员 工 编 号 重复 ,请 重新 输入 *"， 如 图 16-19 
所 示 。 


@g 用 户 可 按照 前 面 的 步骤 利用 【录入 员工 信息 】 对 话 框 快速 方便 地 录入 报表 数据 ， 如 图 
16-20 所 示 。 


本 科 。 208 年 有 
0 第 6 有 
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图 16-18 系统 提示 信息 图 16-19 ”提示 编号 重复 图 16-20 利用 用 户 窗 体 录入 报表 数据 
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现在 已 经 有 了 员工 的 基本 信息 ， 用 户 可 以 使 用 这 些 信息 来 制作 员工 卡 、 生 成 员工 工资 条 
等 。 本 节 将 介绍 如 何在 Excel 中 利用 VBA 代码 实现 这 些 功 能 。 


16.2.1 员工 卡 的 制作 


员工 卡 包含 了 员工 的 基本 信息 。 首 先 来 看 如 何 利 用 VBA 代码 制作 员工 卡 ， 有 具体 操作 步 
又 如 下 。 


@ 册 使 用 16.1 节 介绍 的 方法 创建 一 张 员工 信息 报表 并 将 其 打开 ， 或 者 直接 将 “录入 报表 信 
息 .xlsm” 文 件 拷贝 一 份 ， 并 将 其 重 命名 为 “员工 卡 "， 然 后 打开 该 文件 。 首 先 在 工作 表 的 上 方 插 
入 适当 的 空白 行 来 存放 员工 卡 中 的 信息 , 并 取消 工作 表 中 网 格 线 的 显示 效果 . 打开 VBE 环境 , 依 
次 选择 【插入 】> 【模块 】 菜 单 命令 ， 即 可 插入 模块 2， 在 该 模块 窗口 中 输入 如 下 代码 : 


Public Sub 插入 多 行 () 
Dim idx As Integer 
For idx = 1 To 15 ' 插 入 15 行 


Rows (1) .Insert 
Next idx 


ActiveWindow.DisplayGridlines = False "取消 工作 表 中 网 格 线 的 显示 
End Sub 


输入 完毕 后 ， 依 次 选择 【运行 】>【 运 行 子 过 程 /用 户 窗 体 】 菜 单 命令 ， 返 回 到 Excel 表 
单 ， 结 果 如 图 16-21 所 示 。 


16-21 插入 空白 行 效果 


@ 到 选中 单元 格 区 域 A1:E13 作为 保存 员工 卡 信息 的 区 域 ， 单 击 


H 
[en 


开始 】 选 项 卡 中 的 【颜色 
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填充 】 按 钮 右 侧 的 下 三 角 按钮 ， 在 弹出 的 下 拉 列 表 中 选择 想 要 的 颜色 ， 如 图 16-22 所 示 。 


图 16-22 ”填充 区 域 颜色 


@ 旨 设置 标签 控件 属性 。 首 先 切换 到 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 项 组 中 的 【插入 】 
下 拉 列 表 中 单 击 【标签 】 按 钮 图 (ActiveX 控件 ) ， 当 鼠标 指针 变 为 “+” 形 状 时 ， 在 工作 表 中 适 
当 位 置 按 住 鼠 标 左 键 进行 拖 动 ， 拖 动 至 合适 大 小 后 释放 鼠标 左 键 添 加 一 个 标签 控件 。 


右 击 该 控件 ， 选 择 弹出 菜单 中 的 【属性 】 命 令 , 打开 控件 的 【属性 】 对 话 框 ,切换 到 【 按 
字母 序 】 选 项 卡 ， 修 改 Caption 属性 值 为 “员工 卡 ”。 

单 击 Font 属性 选项 后 面 的 【选择 】 按 钮 -=， 打 开 【 字 体 】 对 话 框 ， 从 中 设置 字体 、 字 
形 和 大 小 ， 如 图 16-23 所 示 。 

单 击 【 确 定 】 按 钮 ， 保 存 字 体 的 设置 并 返回 【属性 】 对 话 框 ， 单 击 ForeColor 选项 后 面 
的 下 三 角 按 钮 了 |, 在 其 下 拉 列 表 中 切换 到 【 调 色 板 】 选 项 卡 , 选择 适当 的 颜色 选项 , 如 图 16-24 


sn 


报 软 中 文 软件 


图 16-23 设置 标题 字体 16-24 ”设置 标题 颜色 
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单 击 Shadow 属性 选项 后 面 的 下 三 角 按钮 ， 选 择 下 拉 列 表 中 的 True 选项 ， 然 后 单 击 

TextAling 属性 后 面 的 下 三 角 按钮 , 在 下 拉 列 表 中 选择 2-fmTextAlignCenter 选项 , 设置 控件 的 
阴影 和 居中 效果 ， 如 图 16-25 所 示 。 


@ 约 接 下 来 按照 同样 的 方法 添加 其 他 控件 ， 首 先 添加 名 称 为 “编号 ”的 Label 控件 ， 然 后 单 
击 控件 列表 中 的 【文本 框 】 按 钮 臣 ， 当 鼠标 指针 变 为 “+” 形 状 时 ， 在 工作 适当 的 位 置 按 住 鼠标 
左 键 不 放 ， 拖 至 适当 大 小 后 释放 鼠标 左 键 添加 一 个 文本 框 控件 ， 如 图 16-26 所 示 。 
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ME 续 镑 +996 年 2 月 女 众 公 室 幸 任 研究生。 23006 年 ?月 
畔 四 了 mep 页 4 研 Y 生 200 有 
9 1 划 材 平 1967 年 8 月 康 行政 肉 香 本 料 。 2008 生 4 月 
所 Ta mT 内 了 汪 几 人 员 文人 10 和 4 月 
Cd 2, A ed 
图 16-25 设置 控件 的 阴影 和 居中 效果 图 16-26 添加 文本 框 控件 


@ 加 按照 同样 的 方法 添加 其 他 员工 卡 信息 控件 ; 然后 添加 一 个 保存 员工 头像 的 控件 , 单 击 控 
件 列表 中 的 【图 像 】 按 钮 国 (ActiveX 控件 ) ， 当 鼠标 指针 变 为 “+ ”形状 时 ， 在 工作 表 中 按 住 鼠 
标 左 键 不 放 ， 拖 至 适当 大 小 后 释放 鼠标 左 键 即 可 添加 一 个 图 像 控 件 ， 如 图 16-27 所 示 。 

@g 接 下 来 设置 姓名 组 合 框 . 首先 选中 B18:B29 单元 格 区 域 , 然后 切换 到 【公式 】 选项 卡 , 在 【 定 
义 的 名 称 】 选 项 组 中 选择 【定义 名 称 】 > 【定义 名 称 】 选 项 ， 打开 【 新 建 名 称 】 对 话 框 ， 在 【名 称 】 文 
本 框 中 输入 “员工 姓名 ， 然 后 单 击 【确定 】 按 钮 即 可 完成 对 所 选区 域名 称 的 定义 ， 如 图 16-28 所 示 。 
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图 16-27 添加 一 个 图 像 控件 图 16-28 【新 建 名 称 】 对 话 框 
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人 @ 副 添加 组 合 框 和 命令 按钮 控件 。 在 该 工作 表 中 添加 一 个 保存 员工 姓名 的 组 合 框 ,用 户 可 以 
从 中 选择 要 显示 信息 的 员工 姓名 。 首 先 ， 切 换 到 【开发 工具 】 选 项 上 不， 单 击 控件 列表 中 的 【组 合 
框 】 按 钮 国 (ActiveX 控件 ) ， 在 工作 表 的 适当 位 置 添加 一 个 组 合 框 控件 。 控 件 添加 完成 之 后 , 设 
置 其 ListFillRange 属性 值 为 “员工 姓名 "， 如 图 16-29 所 示 。 


单 击 控件 列表 中 的 【命令 按钮 】 按钮 妃 (ActiveX 控件 ), 在 工作 表 中 添加 命令 按钮 控件 ， 
并 修改 “名 称 ” 和 Caption 两 个 属性 的 值 为 “生成 员工 卡 信息 ” 如 图 16-30 所 示 。 


ea Wm 
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本 om 


16-29 ”添加 保存 员工 姓名 的 组 合 框 16-30 ”添加 显示 信息 的 按钮 控件 


@ 旨 在 设计 模式 下 双击 【生成 员工 卡 信息 】 按 钮 ， 进 入 该 按钮 的 Click 事件 代码 编辑 窗 
输入 VBA 代码 如 下 。 


Private Sub 生成 员工 卡 信息 click () 
Dim rag As Range "定义 区 域 变量 
Dim row Rs Integer 
Dim w Rs Integer 
Dim h Rs Integer 


row = 0 ' 为 变量 赋 初 值 


3 
UI 
ool 


h = 
"根据 组 合 框 中 显示 的 姓名 ， 在 单元 格 区 域 中 查找 该 员工 并 返回 该 员工 在 工作 表 中 的 具体 位 置 
For Each rag In Range ("B17:B29") 

If rag.Value = ComboBox1l.Text Then 

row = rag.Row 

End If 
Next 
Dim myPath As String 
myPath = Application.ThisWorkbook.Path 


' 将 员工 的 对 应 信息 返回 到 员工 卡 区 域 中 


If row > 0 Then 
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TextBox1l .Text 
TextBox2 .Text 
TextBox3 .Text 
TextBox4.Text 


Cells (row, 1) .Value 
Cells(row, 2) .Value 
Cells (row, 3) .Value 
Cells(row, 4) .Value 


| We! el et | 


With Imagel ' 调 用 照片 并 显示 在 图 像 控 件 中 
w= .Width 
h = .Height 
.Visible = False 
.Picture = LoadPicture (myPath & "\ 员 工头 像 \" & Cells (row，8) .Value) 
.RutoSize = True 
.Width = w 
.Height = h 
.Visible = True 
End With 
Else 
MsgBox "该 员工 姓名 不 存在 ， 请 重新 核实 ! "，viboKOnly & vbInformation, "提示 " 
End If 
End Sub 


【提示 】 这 里 ， 在 调用 照片 并 显示 在 图 像 控件 中 时 ,使 用 的 是 图 片 的 相对 路 径 ， 下 面 的 一 行 可 以 实现 获 
取 当 前 表格 所 在 的 系统 路 径 : 


myPath = Application.ThisWorkbook.Path 
用 户 可 根据 实际 情况 重新 输入 照片 的 存放 路 径 。 


@9j 现在 已 经 完成 了 所 有 代码 的 编写 和 控件 的 设置 , 可 以 生成 员工 卡 信息 了 . 再 次 单 击 VBE 
环境 工具 栏 中 的 【设计 模式 】 按 钮 图 ,退出 按钮 的 编辑 状态 ， 返 回 到 工作 表 中 ， 在 组 合 框 的 下 拉 
列表 中 选择 员工 姓名 后 ， 单 击 【 生 成 员工 卡 信息 】 按 钮 ， 即 可 在 员工 卡 中 显示 该 员工 的 信息 ， 如 
16-31 所 示 。 

用 户 也 可 以 在 组 合 框 中 直接 输入 员工 姓名 ， 但 是 如 果 输入 的 员工 姓名 不 存在 ， 例 如 输入 
“张大 万 ” 当 单 击 【 显 示 信 息 】 按 钮 时 ， 系 统 则 会 弹出 该 员工 姓名 不 存在 的 提示 信息 ， 如 图 
16-32 所 示 。 


【提示 】〗 如 果 想 使 整体 效果 更 加 美观 ， 可 以 将 员工 信息 报表 数据 区 域 隐 藏 ， 方 法 是 选中 工作 表 中 的 第 
17~29 行 ， 然 后 在 行 标 处 单 击 刀 标 右键 ， 在 弹出 的 快捷 菜单 中 选择 【隐藏 】 选 项 ， 即 可 隐藏 员工 信息 
报表 数据 ， 如 图 16-33 所 示 。 


如 果 用 户 想 查看 工作 表 中 记录 的 员工 信息 报表 ， 则 需要 取消 对 单元 格 的 隐藏 。 即 选中 第 
17~29 行 ， 然 后 在 行 标 上 单 击 鼠 标 右键 ， 在 弹出 的 快捷 菜单 中 选择 【取消 隐藏 】 菜 单项 ， 即 
可 取消 隐藏 ， 如 图 16-34 所 示 。 
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图 16-33 隐藏 单 元 格 16-34 ”取消 隐藏 单元 格 
使 用 下 面 的 VBA 代码 也 可 以 实现 单元 格 的 隐藏 操作 。 隐 茂 单 元 格 的 VBA 语句 如 下 : 


Rows ("16:29") .Select 
Selection.EntireRow.Hidden = True 


取消 单元 格 隐藏 操作 的 VBA 语句 如 下 : 


Rows ("16:29") .Select 
Selection.EntireRow.Hidden = False 


员工 卡 的 制作 方法 到 这 里 就 介绍 完了 。 

该 段 程序 使 用 了 一 个 系统 函数 Format。Format 函数 的 功能 是 返回 格式 化 的 字符 串 数据 
Variant ( String ) 值 , 其 中 含有 一 个 表达 式 , 它 是 根据 格式 表达 式 中 的 指令 来 格式 化 的 。 Format 
函数 的 语法 格式 为 : 
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Format (expression[,format[,firstdayofweek[,firstweekofyear]]]) 


其 各 参数 的 具体 意义 如 表 16-1 所 示 。 
表 16-1 Format 参数 的 具体 意义 


.第 16 章 开发 员工 信息 : 


expression 


firstdayofweek 
firstweekofyear 
其 中 关于 参数 firstdayofweek 的 设置 如 表 16-2 所 示 。 
表 16-2 参数 firstdayofweek 的 设置 


常数 


vbUseSystem 


关于 参数 firstweekofyear 的 设置 如 表 16-3 所 示 。 
表 16-3 参数 firstweekofyear 的 设置 


常数 

vbUseSystem 使 用 NLS API 设置 

vbFirstJanl 从 包含 1 月 1 日 那 一 周 开始 (默认 ) 
vbFirstFourDays 从 本 年 第 一 周 开始 ， 而 此 周至 少 有 4 天 在 本 年 中 
vbFirstFullWeek 从 本 年 第 一 周 开始 ， 而 此 周 完全 在 本 年 中 


按照 “hh:mm:ss” 格 式 显示 时 间 ，Format 格式 参数 如 下 : 

format (time, "hh:mm:ss") 

按照 “yyyy 年 m 月 d 日 ”格式 显示 时 间 系 统 ，Format 格式 参数 如 下 : 
format (date, "yyyy 年 m 月 4 日") 

想 要 设置 保留 小 数 点 后 3 位 数字 且 为 货币 形式 的 格式 ，Format 格式 参数 如 下 : 


format ("0.12345","$0.000") 
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其 返回 值 为 “$0.123”。 


[ 硬 且 可 工资 条 的 生成 


员工 工资 条 包含 了 每 位 员工 的 姓名 和 对 应 的 各 项 工资 信息 。 下 面 将 介绍 如 何 利用 VBA 
快速 生成 员工 工资 条 ， 具 体 的 操作 步骤 如 下 : 


@ 册 新 建 员工 工资 表 工作 敌 ， 将 Sheetl 工作 表 重 命名 为 “工资 记录 表 - ， 然 后 在 该 工作 表 中 
输入 员工 各 项 工资 信息 ， 如 图 16-35 所 示 。 

@ 到 添加 “实际 工资 ” 子 过 程 。 首 先 切换 到 【开发 工具 】 选 项 卡 ， 从 中 单 击 【代码 】 选 项 组 
中 的 Visual Basic 按钮 ， 打开 VBA 代码 编辑 窗口 ， 从 中 选择 【插入 】> 【模块 】 菜 单项 ,插入 一 
个 模块 1， 然 后 在 该 模块 窗口 中 ,选择 【插入 】> 【过 程 】 菜 单项 ， 打 开 【 添 加 过 程 】 对 话 框 ， 
设置 子 过 程 的 属性 如 下 : 【名称 】 为 “实际 工资 ", 【类 型 】 为 “ 子 程序 ”， 【范围 】 为 “公共 的 ”， 
如 图 16-36 所 示 。 
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图 16-35 员工 工资 表 图 16-36 【添加 过 程 】 对 话 框 


单 击 【 确 定 】 按 钮 即 可 创建 名 为 “实际 工资 ”的 公有 子 过 程 。 在 其 中 输入 该 过 程 中 要 执 
行 的 VBA 代码 ， 结 果 如 图 16-37 所 示 。 


Public Sub 实际 工资 () 
Dim row As Integer 
Dim count As Integer 
count = Sheets ("工资 记录 表 ") . [A1] .CurrentRegion.Rows.count 'count 变量 保存 
工作 表 中 总 的 记录 数 
For row = 3 To count 
Cells (row, 8) =Cells (row, 3) +Cells (row, 4) +Cells (row, 7) -Cells (row, 
5) -Cells (row, 6) "实际 工资 = 基本 工资 + 住房 补贴 + 满 勤 奖 -事假 扣 款 - 代 扣 保险 
Cells (row, 8) .NumberFormatLocal = " 竺 #,##0.0; 竺 -#,##0.0" :设置 货币 
显 ' 示 格式 
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Next row 
End Sub 


EPE 


图 16-37 计算 实 发 工资 程序 代码 图 16-38 【指定 宏 】 对 话 框 


@ 虽 在 Excel 表单 中 添加 执行 “实际 工资 ” 子 过 程 的 执行 按钮 ， 切 换 到 【开发 工具 】 选 项 卡 ， 
单 击 【 控 件 】 选 项 组 中 的 【插入 】 下 拉 列 表 中 的 【按钮 ( 窗 体 控件 )】 按 钮 妇 ， 当 鼠标 指针 变 为 “+ 
状 时 ， 在 工作 表 中 按 住 鼠 标 左 键 进行 拖 动 ， 拖 动 至 合适 大 小 后 杰 放 鼠标 左 键 ， 将 按钮 名 称 更 改 为 
“实际 工资 “， 单 击 工作 表 中 其 他 任意 位 置 退 出 该 按钮 的 编辑 状态 ,打开 【指定 宏 】 对 话 框 , 在 【 宏 
名 】 列 表 框 中 选择 “实际 工资 "“， 单 击 【 确 定 】 按 钮 ， 完 成 宏 的 指定 操作 ， 如 图 16-38 所 示 。 


将 鼠标 指针 移 到 该 按钮 上 ， 当 指针 形状 变 为 也 时 单 击 【实际 工资 】 按 钮 ， 即 可 完成 实际 
工资 的 计算 ， 如 图 16-39 所 示 。 


罗 顷 接 下 来 开始 介绍 生成 员 资 条 的 程序 设计 过 程 。 首 先 在 模块 1 中 继续 添加 子 过 程 “ 生 
成 工资 条 ， 输 入 VBA 代码 如 下 。 
Public Sub 生成 工资 条 () 


Dim i Rs Integer, row As Integer, col Rs Integer 

Dim j As Integer 

Dim sht As Object 

Dim wsExist As Boolean ' 判 断 是 否 存在 指定 的 工作 表 

wsExist = False 

row = Sheets ("工资 记录 表 ") . [A2] .CurrentRegion.Rows.count 

col = Sheets ("工资 记录 表 ") . [A2] .CurrentRegion.Columns.count 

Range (Cells (2，1) ,Cells (row, col) ) .Copy ' 从 “工资 记录 表 ” 表 单 中 复制 员工 工资 数据 


For Each sht In Worksheets ' 判 断 是 否 存 在 “生成 工资 条 ”工作 表 
IE sht.Name = "工资 条 表单 " Then 
sht.Activate 
wsExist = True 
sht.cleae 
Exit For 
End If 
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Next sht 

"wsExist 值 为 False 表示 不 存在 名 称 为 “工资 条 表单 ”的 表单 

If wsExist = False Then 
Sheets.Rdd After:=Sheets ("工资 记录 表 ") ' 在 工作 表 “ 工 资 记录 表 ” 的 后 面 插入 新 工作 表 
RctiveSheet .Name = "工资 条 表单 " "对 工作 表 重 命名 
ActiveWorkbook.Sheets ("工资 条 表单 ") .Tab.ColorIndex = 43 ' 设 置 新 工作 表 的 

标 ' 签 颜色 为 “ 浅 绿 ” 

End IE 

ActiveSheet.Cells (1，1) .Select ' 选 中 活动 工作 表 中 的 第 1 个 单元 格 

ActiveSheet .Paste ' 将 “工资 记录 表 ” 表 单 中 员工 工资 数据 复制 到 “工资 条 表单 ”表单 

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ 

SkipBlanks:=False, Transpose:=False 


For row = 14 To 3 Step -1 ' 为 每 一 条 员工 工资 记录 添加 一 个 空白 行 
Rows (row) .Select 
Selection.Insert Shift:=xlDown 
With Selection.Font ' 设 置 插入 空白 行 的 字体 格式 
.Name = "黑体 " 
.ColorIndex = 41 
.Size = 12 
End With 
Selection.HorizontalAlignment = xlCenter ' 设 置 水 平 居中 
Next row 


"将 工资 的 列 标题 赋值 给 新 插入 的 空白 行 
For row = 1 To 26 "工作 表 中 共有 13 行 记录 数据 ， 生 成 工资 条 后 将 变 为 26 


If Cells(row，1) = "" Then  ' 判 断 第 1 列 内 的 单元 格 是 否 为 空 
For col = 1 To 8 "工作 表 中 共有 8 列 数据 
Cells (row，col) = Cells (1，col) “' 将 第 一 行 中 的 标题 分 别 复制 到 每 一 个 
"员工 工资 条 记录 的 空白 行 中 
Debug.Print Cells(1, col) 
Next col 
End If 
Next row 


MsgBox "成 功 生成 员工 工资 条 ! " 


End Sub 


@@ 副 返回 “工资 记录 表 ” 表 单 ， 添 加 执行 “生成 工资 条 ”过 程 的 按钮 控件 。 在 【开发 工具 】 
选项 卡 中 ， 单 击 【 控 件 】 选 项 组 中 的 【插入 】 下 拉 列 表 中 的 【按钮 ( 窗 体 控件 )】 按 钮 起， 当 鼠 
标 指针 变 为 “+” 形 状 时 ， 在 工作 表 中 按 住 鼠 标 左 键 进 行 拖 动 ， 拖 动 至 合适 大 小 后 释放 鼠标 左 键 ， 
修改 按钮 名 称 为 ”生成 工资 条 ,然后 单 击 工作 表 中 其 他 任意 位 置 退出 该 按钮 的 编辑 状态 . 打开 【 指 
定 宏 】 对 话 框 ， 选 择 【 宏 名 】 列 表 框 中 的 “生成 工资 条 ”选项 ， 单 击 【 和 确定】 按钮 ， 完 成 宏 的 指 
作 定 操 。 如 图 16-40 所 示 。 
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图 16-39 计算 实际 工资 图 16-40 【指定 宏 】 对 话 框 


绑 定 宏 成 功 之 后 ， 单 击 【生成 工资 条 】 按 钮 ， 即 可 运行 “生成 工资 条 ”的 代码 ， 当 工资 
条 的 生成 完成 后 会 弹出 如 图 16-41 所 示 的 提示 信息 。 单 击 【 确 定 】 按 钮 时 即 可 看 到 运行 结果 ， 
如 图 16-42 所 示 。 


[LO ET sm - Microvoft Excel 
| 
Dw 加 罕 WW ?mm 


se COM SR EO 于 
* Yanae 


图 16-41 ”提示 工资 条 已 生成 图 16-42 ”生成 的 员工 工资 条 


员工 考核 表 包 含 了 员工 的 各 项 评定 内 容 。 使 用 VBA 可 以 实现 考核 表 的 整体 或 部 分 区 域 
打印 。 下 面 将 介绍 使 用 VBA 代码 实现 区 域 打印 的 方法 ， 具 体操 作 步 又 如 下 。 
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人 @ 骨 打印 考核 表 之 前 , 要 生成 一 个 包含 考核 信息 的 数据 表 。 可 以 打开 本 章 提供 的 一 个 考核 表 


样 例 ， 打 开 之 后 的 内 容 如 图 16-43 所 示 ， 在 该 了 


作 表 需要 对 员工 的 各 项 成 绩 进行 综合 评定 .。 


16-44 所 示 。 


网 日 0-w .iv 
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meee» 
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[ 作 簿 中 包含 了 “员工 考核 成 绩 表 ”工作 表 ， 该 工 


@ 到 准备 好 考核 表 之 后 ， 切 换 到 【开发 工具 】 选 项 卡 ， 在 【控件 】 选 项 组 中 单 击 【插入 】 
三 角 按 钮 ， 单 击 控件 列表 中 的 【命令 按钮 】 按 钮 到 (ActiveX 控件 ) ， 当 鼠标 指针 变 成 “+ ”形状 
时 ,在 工作 表 中 的 合适 位 置 , 按 住 鼠 标 左 键 不 放 , 拖 动 至 合适 大 小 后 释放 鼠标 左 键 . 在 其 【属性 】 
对 话 框 中 切换 到 【 按 字母 序 】 选 项 卡 ， 将 “名 称 ” 和 Caption 属性 值 都 修改 为 “统计 总 成 绩 ， 负 
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图 16-43 员工 考核 成 绩 表 


16-44 添加 命令 按钮 控件 


@gj 编写 【统计 总 成 绩 】 按 钮 的 Click 事件 代码 ， 在 设计 模式 下 ， 双 击 命令 按钮 ， 进 入 按钮 


的 代码 编辑 窗口 ， 输 入 下 面 的 VBA 代码 。 


Private Sub 统计 总 成 绩 Click() 
Dim row As Integer 
Dim rowCount As Integer 


rowCount = Sheets ("员工 考核 成 绩 表 ") . [A1] .CurrentRegion. _ 


Rows.Count 
For row = 3 To rowCount 


Cells(row, 10) = Cells(row, 4) + Cells(row, 5) + Cells(row, 6) _ 
+ Cells (row，7) + Cells (row，8) + Cells (row，9) ' 计 算 综 合成 绩 


With Cells (row, 10) 


.HorizontalAlignment = xlCenter ' 设 置 居中 显示 


.VerticalAlignment = xlCenter 


.Font .ColorIndex = 9' 将 字体 颜色 设置 为 “红色 ” 


.Font.Name = "Times New Roman" ' 设 置 字体 


.Font .Size = 11 ' 设 置 字号 


End With 
Next row 
End Sub 
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代码 输入 完毕 ， 再 次 单 击 工具 栏 上 的 【设计 模式 】 按 钮 国 ， 退 出 按钮 的 编辑 状态 ， 返 回 
“员工 考核 成 绩 表 ”工作 表 ， 在 该 表 中 单 击 【统计 总 成 绩 】 按 钮 即 可 完成 “总 成 绩 ” 的 计算 ， 
如 图 16-45 所 示 。 


@ 细 按照 同样 的 方法 ， 在 工作 表 中 添加 【打印 所 选区 域 】 按 钮 ， 如 图 16-46 所 示 。 
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16-45 ”统计 总 成 绩 图 16-46 添加 【打印 所 选区 域 】 按 钮 


添加 完 【 打 印 所 选区 域 】 按 钮 之 后 ， 双 击 按钮 进入 该 按钮 的 Click 事件 代码 编辑 窗口 ， 
输入 如 下 VBA 程序 代码 。 
Private Sub 打印 所 选区 域 Click() 


Dim rag Rs Range 

Dim rowCount As Integer 

Dim colCount As Integer 

Set rag = Application.Selection 


rag.Copy ' 进 行 复制 操作 

Worksheets.Add "插入 新 工作 表 

ActiveSheet .Name = "打印 " "新 工作 表 命 名 为 “打印 ” 
Selection.PasteSpecial Paste:=xlPasteAll "进行 选择 性 粘贴 


rowCount=ActiveSheet. [A1] .CurrentRegion.Rows .Count ' 统 计 当 前 工作 表 的 行 数 
colCount=ActiveSheet. [A1] .CurrentRegion.Columns .Count' 统 计 当 前 工作 表 的 列 数 


With ActiveSheet 
.Range(.Cells(1, 1), .Cells(rowCount, colCount)).Select 
End With 


Selection.Printout ' 对 选择 区 域 执行 打印 操作 
Application.DisplayAlerts = False ' 取 消 显示 特定 的 警告 和 消息 
ActiveWindow.SelectedSheets.Delete  “' 删 除 新 插入 的 工作 表 

End Sub 
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加 代码 输入 完毕 ,再 次 单 击 工具 栏 上 的 【设计 模式 】 按 钮 疾 .， 退出 按钮 的 编辑 状态 ， 返 
回 工作 表 ， 此 时 用 户 可 以 打印 所 选 的 区 域 了 。 例 如 想 要 打印 所 有 “财务 部 ”员工 的 考核 信息 ， 可 
以 在 按 住 Ctrl 键 的 同时 使 用 鼠标 依次 选择 相应 的 行 ， 然 后 单 击 【打印 所 选区 域 】 按 钮 即 可 执行 打 
印 操作 ， 如 图 16-47 所 示 。 


国生 
J 


图 16-47 打印 选择 区 域 
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第 17 章 ”员工 薪金 管理 系统 


员工 薪金 的 管理 是 指 对 员工 收入 与 支出 的 各 个 方面 的 管理 。 员 工薪 金管 理 系统 一 般 具 有 
汇总 考勤 记录 、 计 算 员工 薪金 、 员 工薪 金 查 询 和 访问 权限 控制 等 功能 。 本 章 将 通过 一 个 实例 
来 介绍 如 何 使 用 Excel VBA 来 设计 一 个 基本 的 员工 薪金 管理 系统 。 


17.1 
设置 员工 薪金 管理 工作 簿 


通过 设置 员工 薪金 管理 工作 敌 ， 用 户 可 以 访问 工作 短 中 各 个 工作 表 、 汇 总 员工 的 考勤 记 
录 、 计 算 员工 的 薪金 等 。 


[| 添加 美观 的 按钮 


在 工作 短 中 添加 一 些 自 定义 的 按钮 ， 可 以 方便 查询 和 管理 工作 表 。 这 些 自 定义 的 按钮 不 
仅 可 以 实现 快速 访问 工作 表 ， 而 且 还 可 以 使 管理 界面 更 加 美观 。 
1. 在 员工 薪金 管理 系统 的 首页 工作 表 中 添加 按钮 

管理 系统 包含 了 多 个 作用 不 同 的 工作 表 ， 如 果 非 常 多 的 话 ， 在 Excel 工作 筹 中 单 击 下 面 
的 工作 表 标签 进行 切换 会 不 方便 ,而 使 用 VBA， 用 户 可 以 添加 一 些 更 加 直接 、 快 捷 的 访问 按 
钮 来 访问 这 些 工作 表 。 下 面 来 看 如 何 创建 这 些 访问 按钮 。 

@ 遇 打开 本 章 的 样 例 工作 筹 “员工 薪金 管理 1 ， 并 选择 第 一 个 “首页 ”工作 表 ， 结 果 如 图 
17-1 所 示 。 

首先 来 添加 第 一 个 图 形 按钮 。 在 “首页 ”工作 表 中 切换 到 【插入 】 选 项 卡 ， 在 【插图 】 
选项 组 的 【形状 】 下 拉 列 表 中 单 击 【 和 矩形 】 组 中 的 圆 角 拢 形 按钮 加， 然后 在 “首页 ”工作 表 
中 绘制 圆 角 矩形 ， 如 图 17-2 所 示 。 
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17-1 “员工 薪金 管理 1” 工作 短 图 17-2 绘制 圆 角 矩形 


右 击 添加 的 圆 角 和 矩形， 选择 弹出 菜单 中 的 【设置 形状 格式 】 命 令 , 打开 【设置 形状 格式 】 
对 话 框 ， 在 【填充 】 选 项 卡 中 设置 该 圆 角 矩形 的 填充 样式 ， 如 图 17-3 所 示 。 设 置 完成 后 ， 单 
击 【 关 闭 】 按 钮 保存 对 该 圆 角 矩形 样式 的 设置 。 

再 次 右 击 添加 的 圆 角 矩形 ， 选 择 弹 出 菜单 中 的 【编辑 文字 】 命 令 ， 在 贺 角 矩 形 上 的 文本 
框 中 输入 “员工 资料 ” 同时 设置 字体 为 “华文 中 宋 ”， 字 号 为 4， 颜 色 为 “深蓝 ”， 并 单 击 
【加 粗 】 按 钮 了 ， 其 效果 如 图 17-4 所 示 。 


CPLR 


图 17-3 设置 圆 角 矩形 的 填充 样式 图 174 添加 文本 
@ 他 按照 步骤 1 的 操作 过 程 ， 在 “首页 ”工作 表 中 添加 另外 的 几 个 圆 角 矩形 ， 如 图 17-5 所 


示 


@ 旨 添加 完 图 形 按钮 ， 下 面 来 为 这 些 按钮 指定 宏 操 作 。 首先， 右 击 名 称 为 “员工 资料 ”的 按 
钮 ， 在 弹出 的 快捷 菜单 中 选择 【指定 宏 】 菜单 命令 ， 打 开 【 指 定 宏 】 对话 框 ， 在 【 宏 名 】 文 本 杠 
中 输入 “显示 员工 资料 ， 如 图 17-6 所 示 。 
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图 17-5 添加 其 他 几 个 圆 角 矩形 图 17-6 【指定 宏 】 对 话 框 


单 击 【新 建 】 按钮 ， 即 可 打开 VBA 代码 编辑 窗口 ， 并 且 系 统 会 自动 新 建 一 个 名 称 为 “ 模 
块 1” 的 模块 ， 在 模块 1 的 代码 窗口 中 显示 指定 宏 “ 显 示 员 工资 料 ” 的 代码 框架 ， 如 图 17-7 
所 示 。 

在 该 代码 框架 中 输入 完整 的 代码 程序 ， 代 码 如 下 : 

Sub 显示 员工 资料 () 

Sheets ("员工 资料 ") .Activate 

End Sub 

I@ 网 关闭 VBA 代码 窗口 返回 到 “首页 ”工作 表 中 ， 此 时 名 称 为 “员工 资料 ”的 圆 角 矩形 已 
成 为 一 个 按钮 ， 单 击 该 按钮 可 以 调用 “显示 员工 资料 ” 子 过 程 。 切 换 到 “员工 资料 ”工作 表 中 ， 
把 鼠标 放 在 该 按钮 上 时 ， 可 以 看 到 鼠标 形状 变 为 必 ， 如 图 17-8 所 示 。 


和 


17-7 “显示 员工 资料 ”的 代码 框架 17-8 【员工 资料 】 按 钮 


@ 加 按 Alt+F11 组 合 键 , 打开 VBA 代码 窗口 ， 在 模块 1 的 代码 编辑 窗口 中 依次 添加 下 面 几 
个 子 过 程 代码 : 
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Sub 显示 员工 资料 () 
Sheets ("员工 资料 ") .Activate 
End Sub 


Sub 显示 销售 业绩 () 
Sheets ("销售 业绩 ") .Activate 
End Sub 


Sub 显示 出 差 统计 () 
Sheets (" 出 差 统 计 表 ") .Activate 
End Sub 


Sub 显示 考勤 记录 () 
Sheets (" 考 勤 记 录 ") .Activate 
End Sub 


Sub 显示 员工 薪金 () 
Sheets (" 薪 金 表 ") .Activate 
End Sub 


Sub 返回 () 
Sheets (" 首 页 ") .Activate 

End Sub 

@gj 输入 完毕 后 ， 返回“ 首页 ”工作 表 ， 依 次 为 每 个 图 形 按钮 指定 操作 宏 。 右 击 名 为 “出 差 
统计 ”的 圆 角 和 矩形， 选择 弹出 菜单 中 的 【指定 宏 】 命 令 ， 打 开 【 指 定 宏 】 对 话 框 ， 在 【 宏 名 】 列 
表 框 中 选择 “显示 出 差 统计 ”选项 ， 如 图 17-9 所 示 。 

单 击 【 确定】 按钮 完成 指定 宏 的 操作 。 按 照 同样 的 方法 为 其 他 圆 角 矩形 指定 模块 1 中 已 
经 编辑 好 的 宏 。 
2. 在 其 他 工作 表 中 添加 【返回 】 按 钮 

完成 了 上 面 的 各 个 按钮 的 创建 之 后 ， 现 在 可 以 方便 、 快 捷 地 访问 各 个 工作 表 了 ， 但 是 现 
在 还 有 一 个 问题 , 既然 可 以 直接 访问 这 些 表单 ， 那 能 不 能 从 这 些 工作 表 中 直接 返回 到 “首页 ” 
工作 表 呢 ? 当然 可 以 。 与 前 面 的 方法 相同 ， 只 要 在 需要 返回 的 工作 表 中 添加 一 个 按钮 和 一 小 
段 代 码 就 可 以 实现 了 。 下 面 来 看 【返回 】 按 钮 的 创建 过 程 。 

@ 曲 打开 “员工 薪金 管理 1” 工 作 簿 之 后 ， 按 AlttF11 组 合 键 ， 打开 VBA 代码 窗口 ， 在 模 
块 1 的 代码 编辑 窗口 中 添加 下 面 的 VBA 代码 : 


Sub 返回 () 

Sheets (" 首 页 ") .Activate 

End Sub 

该 段 代 码 用 来 返回 到 “首页 ”工作 表 。 输 入 完毕 后 关闭 VBA 代码 窗口 返回 工作 表 。 


@ 到 首先 选择 在 “员工 资料 ”工作 表 创 建 按钮 . 切换 到 该 工作 表 中 , 在 【插入 】 选项 卡 中 【 插 
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图 】 选 项 组 的 【形状 】 下 拉 列 表 中 单 击 【 和 拢 形 】 组 中 的 【 圆 角 和 矩形】 按钮 回 ， 在 “员工 资料 ” 工 
作 表 中 绘制 一 个 圆 角 矩形， 如 图 17-10 所 示 。 


室 名 册 ; 
显示 出 莽 统 计 
公主 寺 加 记录 
上 和 
Eee 
位 置 4); | 所 有 打开 的 工作 湾 Load 三 [i 
说 明 = = [ 有 = 习 
员工 不 天 资料 
| 2 页 工 坊村 | 雪 才 | 福 出 | 部门 | 职务 | 学历 | 工作 时 间 | 电 ,| 
图 17-9 【指定 宏 】 对 话 框 图 17-10 绘制 一 个 圆 角 和 矩形 


设置 矩形 图 形 的 阴影 效果 。 切 换 到 【格式 】 选 项 卡 ， 在 【形状 样式 】 选 项 组 的 【形状 效 
果 】 下 拉 列 表 中 选择 需要 的 阴影 效果 ， 如 图 17-11 所 示 。 

设置 阴影 效果 之 后 ， 右 击 圆 角 和 矩形， 在 弹出 的 快捷 菜单 中 选择 【设置 形状 格式 】 命 令 ， 
打开 【设置 形状 格式 】 对 话 框 ， 设 置 相应 的 样式 ， 各 个 参数 如 图 17-12 所 示 。 


om 设置 玉 次 格 式 


o@@= oa 


neo 全， 区 一 而 


wR) J] [mE 
Wag 区 一 
le) 


图 17-11 设置 阴影 效果 图 17-12 【设置 形状 格式 】 对 话 框 
单 击 【 设 置 形状 格式 】 对 话 框 中 的 【关闭 】 按 钮 ， 完 成 对 圆 角 和 矩形 的 设置 。 然 后 在 圆 角 
矩形 中 添加 文本 “返回 ” 并 设置 其 字体 、 字 号 等 ， 如 图 17-13 所 示 。 
@ 引 按照 同样 的 方法 在 “销售 业绩 ”工作 表 .“ 出 差 统 计 表 ”工作 表 . “考勤 记录 ”工作 表 及 
“薪金 表 ” 工 作 表 中 分 别 添加 包含 “返回 ”文本 的 圆 角 和 矩 形 ， 或 直接 将 设置 好 的 圆 角 矩形 复制 到 
其 他 工作 表 中 。 
@ 儿 代码 编写 完了 , 所 有 表单 中 的 操作 按钮 也 有 了 ,下 面 将 把 这 两 步 中 的 内 容 联系 到 一 起 完成 返 
首页 的 操作 。 首 先 切换 到 “员工 资料 ”工作 表 , 右 击 【 返 回 】 圆 角 和 矩形， 在 弹出 的 快捷 菜单 中 选择 
【指定 宏 】 命 令 ,打开 【指定 宏 】 对 话 框 ， 在 【 宏 名 】 列 表 框 中 选择 “返回 ”选项 ， 如 图 17-14 所 示 。 


日 


381 


AAA 


BSEIREN NS 


(FE bd 内 工 类 二 管 理 12im - Microsoft trcm 
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位 置 @): | 所 有 打开 的 工作 簿 ~ 
说 明 


Ce |) we 
图 17-13 添加 文本 “返回 ” 图 17-14 【指定 宏 】 对 话 框 


@ 名 单 击 【 确 定 】 按 钮 关闭 【指定 宏 】 对 话 框 ， 此 时 【返回 】 圆 角 和 矩形 已 经 成 为 一 个 按钮 ， 
单 击 该 【返回 】 按 钮 ， 即 可 返回 “首页 ”工作 表 ， 如 图 17-15 所 示 。 


国 昌 ov TIRE em 。Microuoft Ex = 


[EI 


三 
生 户 关 
EY 
9 
EY 
斌 入 如 
请 第 各 


17-15 返回 “首页 ”工作 表 
@g@j 用 同样 的 方法 为 其 他 工作 表 中 的 按钮 指定 返回 首页 操作 的 宏 。 


汇总 考勤 记录 


考勤 信息 包括 员工 的 迟到 /早退 次 数 、 旷 工 次 数 和 加 班次 数 等 ， 并 且 每 个 员工 的 出 勤 情 况 
不 同 ， 所 以 “考勤 记录 ”工作 表 中 的 数据 是 变化 的 。 根 据 实际 情况 ， 汇 总 考勤 记录 的 具体 操 
作 步 骤 如 下 。 


@ 和 打开 本 章 的 “员工 薪金 管理 2” 工 作 短 切换 到 “考勤 记录 ”工作 表 中 ,在 【插入 】 选 
项 卡 的 【插图 】 选 项 组 的 【形状 】 下 拉 列 表 中 单 击 【 和 矩形 】 组 中 的 【 圆 角 和 矩形】 按钮 器， 在 工作 
表 中 绘制 一 个 圆 角 矩形 ,按照 前 面 介绍 的 过 程 , 添加 【汇总 考勤 记录 】 按 钮 ， 并 为 按钮 添加 样式 、 
文字 和 字号 ， 修 改 后 的 效果 如 图 17-16 所 示 。 


382 


如 


上 @ 到 按 Alt+F11 组 合 键 打开 VBA 代码 窗口 ， 在 模块 1 的 代码 编辑 窗 
子 过 程 ， 输 入 代码 如 下 。 


Sub 汇总 考勤 记录 () 
Dim row As Integer, col As Integer 
Dim chidao As Integer, zaotui As Integer, kuanggong As Integer, jiaban As 
Integer 
Dim count As Integer 


ph 创建 汇总 考勤 记录 


count = Sheets ("考勤 记录 ") .Range ("R1") .CurrentRegion.Rows.count 
For row = 4 To count 

chidao = 0 

zaotui = 0 

kuanggong = 0 

jiaban = 0 


For col = 2 To 32 
If InStr(Cells (row,， col), "迟到 ") > 0 Then 
chidao = chidao + 1 
End If 
If InStr(Cells (row，col)，" 早 退 ") > 0 Then 
zaotui = zaotui + 1 
End If 
IE Instr(Cells(row, col), "WI") > 0 Then 
kuanggong = kuanggong + 1 
End If 
If InStr(Cells (row，col)，" 加 班 ") > 0 Then 
jiaban = jiaban + 1 
End If 
Next col 


Cells (row, 33) = chidao 
Cells(row, 34) = zaotui 
Cells(row, 35) = kuanggong 
Cells(row, 36) = jiaban 

Next row 
End Sub 


该 段 代 码 实现 获取 每 位 员工 在 12 月 份 每 一 天 的 考勤 记录 。 如 果 某 位 员工 在 某 一 天 迟到 ， 
则 将 这 位 员工 相应 的 迟到 总 次 数 加 1。 相 应 地 ， 早 退 、 旷 工 和 加 班次 数 也 是 这 样 统计 的 。 


@ 旨 关闭 VBA 代码 编辑 窗口 ， 返回“ 考勤 记录 ”工作 表 中 ， 右 击 【 汇 总 考勤 记录 】 圆 角 拢 
形 ， 选 择 弹出 菜单 中 的 【指定 宏 】 命 令 ， 打 开 【 指 定 宏 】 对 话 框 ， 在 【 宏 名 】 列 表 框 中 选择 “ 汇 
总 考勤 记录 ， 如 图 17-17 所 示 。 单 击 【确定 】 按 钮 ， 完 成 指定 宏 操作 。 
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17-16 输入 文本 并 设置 其 效果 


图 17-17 为 按钮 指定 宏 


此 时 【汇总 考勤 记录 】 圆 角 和 矩形 已 经 成 为 一 个 按钮 ， 单 击 【汇总 考勤 记录 】 按 钮 ， 然 后 
将 工作 表 拉 到 最 后 列 ， 即 可 看 到 计算 出 的 每 位 员工 的 迟到 次 数 、 早 退 次 数 、 旷 工 次 数 和 加 班 
次 数 ， 如 图 17-18 所 示 。 


-vls 员工 蔚 多 管理 2xlsm - Microsoft Excel om 

| > 
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图 17-18 计算 考勤 结果 


| 计算 员工 薪金 


员工 薪金 包括 基本 工资 、 补 助 、 奖 金 、 加 班 费 等 。 本 小 节 将 介绍 如 何 使 用 VBA 计算 员 
工 的 实 发 工资 ， 具 体操 作 步 骤 如 下 。 


二 打开 本 章 的 “ 员 1 
-考勤 记录 


按照 前 


添加 图 


17-20 所 示 的 8 个 圆 角 拢 形 ， 并 设置 其 文本 字体 为 “华文 中 宋 、 字 


工作 表 中 添加 “汇总 考勤 记录 ” 贺 角 和 矩形 的 方法 ， 在 “薪金 表 - 
号 为 10 号 。 


[薪金 管理 3” 工 作 簿 ,切换 到 “薪金 表 ” 工 作 表 中 ,如 图 17-19 所 示 。 
工作 表 中 


员工 薪金 表 


,加 ”员工 薪金 表 


rE 
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| 2 tT 


者 + 


图 17-19 “薪金 表 ” 工 作 表 


基本 工资 与 员工 的 学 历 有 关 ， 学 历 越 高 其 基本 工资 也 越 高 。 这 号 


定 标准 如 表 17-1 所 示 。 


Pom 7 一 
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es 


图 17-20 添加 8 个 圆 角 拢 形 


表 17-1 员工 的 基本 工资 设 定 标准 


3 按 AIt+F11 组 合 键 打开 VBA 代码 窗 


， 在 模块 1 的 代码 编辑 窗 


子 过 程 的 代码 。 
Sub 基本 工资 () 


Dim row Rs Integer, col As Integer 
Dim count1 As Integer, count2 As Integer 
count1l = Sheets ("员工 资料 ") .Range ("A1l") .CurrentRegion.Rows.count 


count2 
For row = 4 To count2 
For col = 3 To countl 


中 编写 “基本 了 


Sheets ("薪金 表 ") .Range ("R1") .CurrentRegion.Rows .count 


If Sheets (" 员 工资 料 ") .Cells (col, 1) = Cells(row, 1) Then 


"在 “员工 资料 ”工作 表 中 找到 相应 的 员工 


[ 资 * 


有 8 假设 员工 的 基本 工资 设 


学 历 
基本 工资 pe 


Select Case Sheets ("员工 资料 ") .Cells (col，4) ' 根 据 员工 的 学 历 制定 基本 工 


Case "专科 " 
Cells (row, 3) 
Case "本 科 " 
Cells (row, 3) 
Case "硕士 " 
Cells (row, 3) 
Case "博士 " 
Cells (row, 3) 
End Select 
Exit For 
End If 
Next col 
Next row 
End Sub 
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这 段 代 码 首先 使 用 变量 countl 和 count2 分 别 记录 “员工 资料 ”工作 表 和 “薪金 表 ” 工 作 
表 的 当前 可 见 单元 格 的 行 数 , 然后 使 用 嵌 套 For 循环 遍历 这 两 个 工作 表 中 的 所 有 员工 记录 行 。 
在 For 循环 中 使 用 下 语句 判断 这 两 个 工作 表 中 当前 员工 记录 行 的 员工 编号 是 否 相 同 ， 如 果 相 
同 则 根据 “员工 资料 ”工作 表 中 员工 的 学 历 计算 该 员工 在 “薪金 表 ” 工 作 表 中 的 基本 工资 。 
@ 旬 关闭 VBA 代码 编辑 窗口 ， 返回“ 薪金 表 ” 工 作 表 中 ,， 右 击 【 基 本 工资 】 贺 角 矩 形 ， 选 
择 弹 出 菜单 中 的 【指定 宏 】 命 令 ， 打开 【指定 宏 】 对 话 框 ， 在 【 宏 名 】 列 表 框 中 选择 “基本 工资 ” 
选项 ， 如 图 17-21 所 示 。 


单 击 【确定 】 按 钮 ， 完 成 【基本 工资 】 按 钮 的 指定 宏 操 作 。 此 时 【基本 工资 】 圆 角 和 矩形 
将 作为 一 个 按钮 ， 单 击 该 按钮 ， 可 以 计算 出 每 位 员工 的 基本 工资 ， 如 图 17-22 所 示 。 
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图 17-21 指定 宏 名 为 “基本 工资 ” 图 17-22 计算 出 每 位 员工 的 基本 工资 


多 接 下 来 计算 员工 的 工龄 工资 ,员工 工作 年 限 越 长 ,工龄 工资 越 高 。 假 设 员工 工龄 每 增加 
1 年 , 工龄 工资 就 增加 200 元 。 如 果 工 龄 超过 10 年 ， 则 工龄 工资 统一 设 定 为 2000 元 。 按 Alt+F11 
组 合 键 打开 VBA 代码 窗口 ， 在 模块 1 的 代码 编辑 窗口 中 输入 计算 工龄 工资 的 程序 代码 。 


Sub 工龄 工资 () 
Dim row As Integer, col As Integer 
Dim count1 As Integer, count2 Rs Integer 
Dim year num As Integer ' 存 储 工龄 
count1 = Sheets ("员工 资料 ") .Range ("R1") .CurrentRegion.Rows.count 
count2 = Sheets ("薪金 表 ") .Range ("Al1") .CurrentRegion.Rows.count 
For row = 4 To count2 
For col = 3 To countl 
If Sheets ("员工 资料 ") .Cells (col, 1) = Cells(row, 1) Then 
"在 “员工 资料 ”工作 表 中 找到 相应 的 员工 
year num = Year (Now) - Year (Sheets ("员工 资料 ") .Cells (col，7)) 
"获取 当前 日 期 和 员工 工作 日 期 的 年 份 之 差 
If year_num <= 10 Then ' 如 果 工 龄 不 大 于 10 
Cells(row, 4) = 200 * year num 
Else 
Cells(row, 4) = 2000 
End If 


bs 


386 


Exit For 
End If 
Next col 
Next row 
End Sub 


输入 完毕 ， 关 闭 VBA 代码 窗口 ， 返 回 “ 薪 金 表 ”工作 表 中 ， 右 击 【工龄 工资 】 圆 角 矩 
形 ， 选 择 弹 出 菜单 中 的 【指定 宏 】 命 令 ， 打 开 【 指 定 宏 】 对 话 框 ， 选 择 【 宏 名 】 列 表 框 中 的 
“工龄 工资 ”选项 ， 如 图 17-23 所 示 。 

单 击 【 确 定 】 按 钮 ， 完 成 【工龄 工资 】 按 钮 的 指定 宏 操 作 。 此 时 【工龄 工资 】 圆 角 和 矩形 
将 作为 一 个 按钮 ， 单 击 该 按钮 ， 即 可 计算 出 每 位 员工 的 工龄 工资 ， 如 图 17-24 所 示 。 
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ECC he a At 
4 了 — = 
17-23 ”指定 宏 名 为 “工龄 工资 ” 图 17-24 计算 出 每 位 员工 的 工龄 工资 


@ 加 计算 员工 的 奖金 ， 这 里 假定 员工 的 奖金 主要 指 销售 人 员 的 奖金 ， 奖 金额 度 为 销售 额 的 
5%。 该 实例 以 计算 销售 人 员 的 奖金 的 方法 为 例 ， 将 其 他 部 门 员 工 的 奖金 设置 为 0。 按 Altt+F11 组 
合 键 打开 VBA 代码 窗口 ， 在 模块 1 的 代码 编辑 窗口 中 创建 计算 奖金 的 子 过 程 ， 输 入 代码 如 下 。 

Sub 奖金 () 


Dim row Rs Integer, col As Integer 
Dim count1 As Integer, count2 Rs Integer 
Dim prize As Double “' 奖 金 
count1l = Sheets (" 销 售 业绩 ") .Range ("C3") .CurrentRegion.Rows.count + 2 
count2 = Sheets ("薪金 表 ") .Range ("A1") .CurrentRegion.Rows .count 
For row = 4 To countl 
For col = 4 To count2 ' 在 “薪金 表 ” 工 作 表 中 找到 销售 部 员工 
IE Cells (col，1) = Sheets ("销售 业绩 ") .cells (row，3) Then 
Prize = Sheets (" 销 售 业绩 ") .Cells (row，5) * 0.05 ' 计 算 奖 金 
Cells(col, 5) = prize 
Exit For 
End If 
Next col 
Next row 
For col = 4 To count2 ' 将 其 他 员工 的 奖金 设置 为 0 
IE Cells(col, 5) = Then 
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Cells(col, 
End If 
Next col 
End Sub 


] 与 实战 


5) ='0 


该 段 代 码 使 用 嵌 套 For 循环 遍历 “销售 业绩 ”工作 表 和 “薪金 表 ” 工 作 表 ， 在 For 循环 
中 使 用 下 语句 判断 这 两 个 表 中 当前 员工 记录 行 中 的 员工 编号 是 否 相 同 , 相同 表示 在 “薪金 表 ” 
工作 表 中 找到 了 一 位 销售 人 员 ， 然 后 根据 “销售 业绩 ”工作 表 中 的 该 销售 人 员 的 销售 额 来 计 
算 奖 金 。 对 于 其 他 员工 ， 奖 金 列 单元 格 的 值 都 为 0。 
输入 完毕 后 ， 关 闭 VBA 代码 窗口 ， 返 回 “ 薪 金 表 ”工作 表 中 ， 右 击 【 奖 金 】 圆 角 和 矩形 ， 
选择 弹出 菜单 中 的 【指定 宏 】 命 令 ， 打 开 【 指 定 宏 】 对 话 框 ， 选 择 【 宏 名 】 列 表 框 中 的 “ 奖 
金 ” 选项， 如 图 17-25 所 示 。 单 击 【 确 定 】 按 钮 ， 完 成 指定 宏 操 作 。 
此 时 【奖金 】 圆 角 和 矩形 可 以 作为 一 个 按钮 ， 单 击 该 按钮 ， 即 可 计算 出 每 位 员工 的 奖金 ， 


如 图 17-26 所 示 。 
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说 明 


图 17-25 ”指定 宏 名 为 “奖金 ” 


[计算 员工 差旅费 ， 
公式 为 “差旅费 =1000+15* 


图 17-26 计算 出 每 位 员工 的 奖金 


许多 公司 在 员工 出 差 时 会 提供 差旅费 用 补助 ,这 里 假设 差旅费 的 计算 


差 员 工 的 差旅费 。 


差 天 数 “， 接 下 来 根据 上 述 公式 ,结合 “出 差 统计 表 ” 了 


[ 作 表 计算 出 


按 AIHF11 组 合 键 打开 VBA 代码 窗口 ,在 模块 1 的 代码 编辑 窗口 中 创建 计算 差旅费 的 子 


过 程 ， 输 入 代码 如 下 。 
Sub 差旅费 () 


Dim row Rs Integer, col As Integer 
Dim countl As Integer, count2 Rs Integer 
Dim subsidy As Double “差旅费 
count1 = Sheets (" 出 差 统计 表 ") .Range ("B3") .CurrentRegion.Rows .count + 2 
count2 = Sheets (" 薪 金 表 ") .Range ("A1l1") .CurrentRegion.Rows .count 
For row = 4 To countl 
For col = 4 To count2 ' 在 “薪金 表 ” 工 作 表 中 找到 出 差 的 员工 
If Cells (col，1) = Sheets (" 出 差 统计 表 ") .Cells (row，2) Then 
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subsidy = 2000 + Sheets ("出 差 统计 表 ") .Cells (row，7) * 15 ' 计 算 差 旅 


Cells(col, 6) = subsidy 
Exit For 
End If 
Next col 
Next row 
For col = 4 To count2 ' 将 其 他 员工 的 差旅费 设置 为 0 
IE Cells(col, 6) = "" Then 
Cells(col, 6) = 0 
End If 
Next col 
End Sub 


输入 完毕 ， 关 闭 VBA 代码 窗口 ， 返 回 “ 薪 金 表 ”工作 表 中 ， 右 击 【 差 旅费 】 圆 角 和 矩形 ， 
选择 弹出 菜单 中 的 【指定 宏 】 命 令 ， 打开 【 指 定 宏 】 对 话 框 ， 选 择 【 宏 名 】 列 表 框 中 的 “ 差 
旅费 ”选项 ， 如 图 17-27 所 示 。 

单 击 【确定 】 按 钮 ， 完 成 【差旅费 】 按 钮 的 指定 宏 操作 。 此 时 【差旅费 】 圆 角 和 矩形 可 以 
作为 一 个 按钮 ， 单 击 该 按钮 ， 计 算出 每 位 员工 的 差旅费 ， 如 图 17-28 所 示 。 
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员工 薪金 表 | 
ETTX ][ 工 共 工 次 奖 全 人 章 王 秽 | 保护 ] [村 到 各 款 儿 
保险 CIETE3 | 


工艺 工资 


全 | 天 球员 


位 置 0); | 所 有 打开 的 工作 淖 
说 明 


图 17-27 指定 宏 名 为 “差旅费 ” 图 17-28 计算 出 每 位 员工 的 差旅费 

到 上 面 介绍 了 “薪金 表 ” 工 作 表 中 前 4 种 类 型 工资 的 管理 过 程 ， 后 面 还 有 “保险 " “缺勤 
扣 款 "、“ 加 班 费 "、“ 实 发 工资 ”4 个 工资 项 ， 添 加 过 程 和 前 面 的 过 程 完全 相同 ， 只 需要 按照 不 同 
项 目的 计算 公式 进行 计算 就 可 以 了 。 

为 了 演示 操作 过 程 ， 做 如 下 假定 : 

日 每 个 员工 的 保险 费用 为 固定 值 150; 

@ 缺勤 扣 款 计算 方法 为 :“ 迟 到 或 早退 一 次 扣 款 30 元 ， 旷 工 一 次 罚款 200 元 ”; 

@ 加 班 费 规定 “加 班 一 次 支付 给 员工 100 元 的 加 班 费 ”; 

@ 实 发 工资 = 基本 工资 + 工龄 工资 + 奖金 + 差旅费 -保险 -缺勤 扣 款 + 加 班 费 。 


在 Excel 表格 中 按 AlttF11 组 合 键 打开 VBA 代码 窗口 ,在 模块 1 的 代码 编辑 窗口 中 创建 
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计算 后 面 几 个 工资 项 的 子 过 程 ， 输 入 代码 如 下 。 
Sub 保险 () 


Dim row As Integer 
Dim count As Integer 
count = Sheets ("薪金 表 ") .Range ("Al") .CurrentRegion.Rows.count 
For row = 4 To count 
Cells(row, 7) = 150 
Next row 
End Sub 


Sub 缺勤 扣 款 () 
Dim row As Integer, col As Integer 
Dim countl As Integer, count2 As Integer 
Dim punish As Integer 
count1 Sheets (" 考 勤 记 录 ") . Range ("Al") .CurrentRegion.Rows .count 
count2 = Sheets ("薪金 表 ") .Range ("R1") .CurrentRegion.Rows .count 
For row = 4 To count1 


For col = 4 To count2 
If Cells (col，1) = Sheets (" 考 勤 记录 ") .Cells (row，1) Then ' 员 工 编号 相 


外 


同 
punish = Sheets (" 考 勤 记录 ") .Cells (row，33) * 30 + 
Sheets ("考勤 记录 ") .Cells (row，34) * 30 + Sheets (" 考 勤 记录 ") .Cells (row，35) * 200 
Cells(col, 8) = punish 
Exit For 
End If 
Next col 
Next row 
End Sub 


Sub 加 班 费 () 
Dim row As Integer, col As Integer 
Dim count1 As Integer, count2 Rs Integer 
Dim overtime pay As Integer 
count1 = Sheets ("考勤 记录 ") .Range ("A1") .CurrentRegion.Rows.count 
count2 = Sheets ("薪金 表 ") .Range ("A1") .CurrentRegion.Rows.count 
For row = 4 To countl 


For col = 4 To count2 
If Cells (col，1) = Sheets ("考勤 记录 ") .Cells (row，1) Then ' 员 工 编号 相 


overtime pay = Sheets ("考勤 记录 ") .Cells (row，36) * 100 
Cells(col, 9) = overtime pay 
Exit For 
End If 
Next col 
Next row 
End Sub 


Sub 实 发 工资 () 


Dim row As Integer 
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Dim count As Integer 
count = Sheets ("薪金 表 ") .Range ("Al") .CurrentRegion.Rows.count 
For row = 4 To count 
Cells (row, 10) =Cells (row, 3) +Cells (row, 4) + Cells (row, 5) +Cells (row, 
6) - Cells(row, 7) - Cells(row, 8) + Cells(row, 9) 
Next row 
End Sub 


@8j 输入 完毕 ， 返 回 “ 薪 金 表 ” 工 作 表 中 , 分 别 右 击 各 个 对 应 名 称 的 圆 角 和 矩形 ， 在 弹出 的 快 
捷 菜 单 中 选择 【指定 宏 】 命令 ， 再 在 打开 的 【指定 宏 】 对话 框 中 分 别 为 每 个 图 形 按钮 指定 对 应 的 
操作 宏 (可 参考 前 面 的 指定 宏 过 程 ) 。 
添加 完 所 有 的 操作 宏 之 后 ， 这 些 圆 角 矩形 可 以 作为 按钮 来 执行 相应 的 VBA 过 程 代码 了 。 依 
次 执行 每 个 按钮 ， 最 后 员工 “薪金 表 ” 工 作 表 的 显示 结果 如 图 17-29 所 示 。 
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图 17-29 计算 出 每 位 员工 的 实 发 工资 


12 


员工 薪金 管理 表 已 经 创建 好 了 ， 下 面 将 介绍 如 何 创建 员工 查询 系统 。 该 查询 系统 中 通过 
创建 一 个 查询 窗 体 ， te 示 出 来 。 在 该 实例 中 还 添加 了 用 户 
权限 管理 部 分 ， 即 增加 了 一 个 管理 员 角 色 ， 只 有 拥有 管理 员 密码 的 人 才能 修改 数据 表 中 的 数 
据 ， 而 其 他 普通 员工 只 能 估 查 询 损 作 。 
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|[ 压 允 | 创建 【薪金 查询 】 窗 体 


薪金 查询 窗口 中 使 用 “员工 编号 ”来 查询 ， 以 防止 出 现 名 字 相 同 的 用 户 查 询 到 错误 的 信 
息 。 用 户 只 要 在 薪金 查询 窗口 中 输入 员工 编号 就 可 以 查看 员工 编号 所 对 应 的 员工 信息 ， 具 体 
的 操作 步骤 如 下 。 


@ 贡 打开 本 章 的 “员工 薪金 管理 4 0 按 AlttF11 组 合 键 打开 VBA 代码 窗口 ， 依 次 
选择 【插入 】> 【用户 窗 体 】 菜单 命令 ， 一 个 名 为 UserForml 的 用 户 窗 体 ， 如 图 17-30 所 示 。 

@g 在 该 用 户 窗 体 的 【属性 】 窗 口 ey Caption 文本 框 中 输入 “薪金 查询 ”， 修改 该 用 户 窗 体 
的 显示 标题 ， 如 图 17-31 所 示 。 


[am me em MS mrt ae S50 TAD Men ee 
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ED | 


图 17-30 ”插入 名 为 UserForml 的 用 户 窗 体 图 17-31 输入 文本 信息 


上 @ 冯 添加 提示 标签 。 单 击 【 工 具 箱 】 中 的 【标签 】 按 钮 A|， 在 窗 体 上 添加 一 个 名 为 Labell 
的 标签 ， 修 改 该 标签 的 Caption 属性 值 为 “输入 员工 编号 "， 修 改 结果 如 图 17-32 所 示 。 

设置 标签 的 显示 文本 字体 格式 ,在 该 标签 的 【属性 】 窗 口中 单 击 Font 属性 右边 带 省 略 号 的 按 
钮 ， 打开 【字体 】 对 话 框 ， 设 置 字体 为 “华文 中 宋 ， 大 小 为 “小 四 ， 如 图 17-33 所 示 。 


sm 
筑 软 中 文 软件 


Pasik 
| 


17-32 添加 标签 并 输入 标签 文本 图 17-33 设置 文本 属性 
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单 击 【 确 定 】 按 钮 关闭 【字体 】 对 话 框 。 然 后 单 击 【 工 具 箱 】 中 的 【文本 框 】 按 钮 芽 |， 
在 窗 体 上 添加 一 个 名 为 TextBoxl 的 文本 框 ， 如 图 17-34 所 示 。 


@ 缚 单 击 【工具 箱 】 中 的 【命令 按钮 】 按 钮 十 ,在 窗 体 中 添加 一 个 命令 按钮 ， 修 改 该 命令 按 
钮 的 Caption 属性 值 为 “开始 查询 "， 输 入 完成 后 ， 按 Enter 键 完成 命令 按钮 显示 文本 的 修改 ,如 
17-35 所 示 。 
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图 17-34 ”添加 一 个 名 为 TextBox1 的 文本 框 图 17-35 ”添加 一 个 命令 按钮 


人 @@ 副 按照 添加 【开始 查询 】 按 钮 的 方法 ， 在 窗 体 中 添加 另外 两 个 命令 按钮 ， 分 别 修改 这 两 个 
命令 按钮 的 Caption 属性 值 为 “管理 员 登 录 ” 和 “退出 ， 如 图 17-36 所 示 。 


首先 ， 双 击 用 户 窗 体 中 【开始 查询 】 按 钮 进入 其 代码 编辑 窗口 ， 添 加 按钮 的 Click 事件 
过 程 的 处 理 代码 。 


Private Sub CommandButtonl Click() 
Dim row Rs Integer 
Dim count1，count2，count3， count4, count5 As IntegeL 
Dim flagl As Boolean, flag2 As Boolean, flag3 As Boolean 


count1l = Sheets ("员工 资料 ") .Range ("A1l") .CurrentRegion.Rows.count 
count2 = Sheets ("销售 业绩 ") .Range ("C3") .CurrentRegion.Rows.count + 2 
count3 = Sheets ("出 差 统计 表 ") .Range ("B3") .CurrentRegion.Rows.count + 2 
count4 = Sheets ("考勤 记 录 ") .Range ("A1") .CurrentRegion.Rows.count 
count5 = Sheets ("薪金 表 ") .Range ("A1l") .CurrentRegion.Rows.count 
isTravel = False 

flagl = False 

flag2 = False 

flag3 = False 

ID = TextBoxl.Text “' 记 录用 户 输入 的 员工 编号 


"获取 员工 个 人 资料 
For row = 3 To count1l 
If Sheets (" 员 工资 料 ") .Cells (row，1) = ID Then 
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Sname = Sheets ("员工 资料 ") .Cells (row，2) “员工 姓名 
degree = Sheets ("员工 资料 ") .Cells (row，4) ' 员 工学 历 
depart = Sheets ("员工 资料 ") .Cells (row，5) ' 员 工 所 在 部 门 
work time = Sheets ("员工 资料 ") .Cells (row，7) ' 工 作 时 间 
flagl = True “' 说 明 此 员工 存在 
Exit For 
End If 
Next row 
' 获 取 销 售 额 
For row = 4 To count2 
If Sheets ("销售 业绩 ") .Cells (row, 3) = ID Then 
sale = Sheets ("销售 业绩 ") .Cells (row，5) “销售 额 
Exit For 
End If 
Next row 
' 获 取出 差 日 期 
For row = 4 To count3 
IE Sheets ("出 差 统计 表 ") .Cells (row, 2) = ID Then 
travel = Sheets ("出 差 统计 表 ") .cells (row，7) ' 出 差 天 数 
isTravel = True 
Exit For 
End If 
Next row 
"获取 考勤 信息 
For row = 4 To count4 
IE Sheets (" 考 勤 记 录 ") .Cells (row，1) = ID Then 
late = Sheets (" 考 勤 记录 ") .Cells (row，33) “迟到 次 数 
early = Sheets (" 考 勤 记 录 ") .Cells (row，34) ' 早 退 次 数 
truancy = Sheets ("考勤 记录 ") .Cells (row，35) ' 有 旷工 次 数 
overtime = Sheets ("考勤 记录 ") .Cells (row，36) ' 加 班次 数 
flag2 = True ' 说 明 此 员工 存在 
Exit For 
End If 
Next row 
"获取 各 工资 项 目 并 求 总 工资 
For row = 4 To count5 
If Sheets (" 薪 金 表 ") .Cells (row，1) = ID Then 
basic money = Sheets (" 薪 金 表 ") .Cells (row，3) ' 基 本 工资 
time money = Sheets (" 薪 金 表 ") .Cells (row，4) “工龄 工资 
Prize money = Sheets (" 薪 金 表 ") .Cells (row，5) ' 奖 金 
travel money = Sheets ("薪金 表 ") .Cells (row， 6) ' 差 旅费 
punish money = Sheets ("薪金 表 ") .Cells (row，8) “缺勤 扣 款 
overwork money = Sheets ("薪金 表 ") .Cells (row，9) ' 加 班 费 
salary = Sheets ("薪金 表 ") .Cells (row，10) ' 实 发 工资 
flag3 = True ' 说 明 此 员工 存在 
Exit For 
End If 
Next row 
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IE flagl = False Or flag2 = False Or flag3 = False Then 


MsgBox "不 存在 这 个 员工 编号 ! " 
Else 
UserForml] .Hide 
UserForm2 .Show 
End If 
End Sub 


这 上段 代码 需要 从 相关 的 工作 表 中 查找 与 所 输入 员工 编号 对 应 的 员工 详细 信息 。 这 里 使 用 
For 循环 遍历 “员工 资料 ”“ 销 售 业 绩 ” “出 差 统 计 表 ”、“ 考 惑 记 录 ” 和 “薪金 表 ” 这 5 个 
工作 表 。 

如 果 在 工作 表 中 存在 所 输入 的 员工 编号 ， 则 使 用 UserForm1.Hide 语句 隐藏 【员工 薪金 查 
询 】 窗 体 ， 然 后 使 用 UserForm2.Show 语句 将 UserForm2 查询 结果 窗 体 显示 出 来 。 

然后 ， 双 击 【薪金 查询 】 窗 体 中 的 【管理 员 登 录 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 
添加 按钮 的 Click 事件 过 程 的 处 理 代码 。 

Private Sub CommandButton2 Click() 

UserForml .Hide “隐藏 【薪金 查询 】 窗 体 


UserForm3 .Show “显示 【管理 员 登 录 】 窗 体 
End Sub 


【提示 】〗 这 里 的 UserForm3 用 户 窗 体 ( 即 【管理 员 登 录 〗 窗 体 )， 后 面 的 小 节 中 将 创建 该 窗 体 。 


最 后 ， 双 击 【 薪 金 查询 】 窗 体 中 的 【退出 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 添 加 按 
钮 的 Click 事件 过 程 的 处 理 代码 。 
Private Sub CommandButton3 Click() 
UserForml .Hide ' 隐 藏 【薪金 查询 】 窗 体 


ActiveWorkbook.Close (True) “' 保 存 并 关闭 工作 簿 
End Sub 


【提示 】 在 上 述 CommandButton1_Click 事件 处 理 程序 中 使 用 到 的 一 些 保存 员工 信息 的 变量 并 没有 定义 ， 
而 这 些 变 量 会 在 该 工作 簿 的 其 他 窗 体 中 使 用 到 ， 即 这 些 变 量 是 公共 的 ， 所 以 接 下 来 的 步骤 将 把 这 些 变 
量 定义 成 全 局 变量 。 

@@j 在 VBA 代码 窗口 中 ， 选 择 【 插 入 】> 【模块 】 菜 单 命令 ,插入 “模块 2 。 在 该 模块 的 
【属性 】 窗 口中 的 【名 称 】 文 本 框 中 输入 “定义 变量 "， 接着 在 该 模块 代码 窗口 中 输入 定义 变量 的 
代码 ， 如 图 17-37 所 示 。 i 


Public ID As String, Sname As String 

"保存 员工 学 历 变量 

Public degree As String, depart As String, work time As String 
"保存 迟到 、 早 退 、 旷 工 变量 

Public late As Integer, early As Integer, truancy Rs Integer 

' 加 班 变 量 

Public overtime As Integer 

' 销 售 额 、 奖 金 变量 


Public sale As Double, prize money As Double 
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"基本 工资 、 工 龄 工资 
Public basic money As Integer, time money Rs Integer 


' 扣 款 、 加 班 费 变 量 

Public punish money As Integer, overwork money As Integer 
"出 差 天 数 、 差 旅费 

Public travel As Integer, travel money Rs Integer 

' 总 工资 

Public salary As Double 

"员工 出 差 判 断 变量 


Public isTravel As Boolean 


17-36 添加 【管理 员 登 录 】 和 【退出 】 按 钮 图 17-37 定义 变量 代码 


@ 副 最 后 必须 添加 一 个 用 户 窗 体 关 闭 事件 的 处 理 过 程 , 因为 在 查询 系统 中 普通 用 户 不 能 查看 
Excel 表格 中 的 数据 ， 所 以 当 用 户 关闭 窗 体 时 ,一 定 要 保证 把 Excel 工作 秒 关 闭 。 下 面 继续 输 入 如 
下 代码 以 实现 关闭 用 户 窗 体 时 自动 关闭 工作 簿 的 功能 。 

Private Sub UserForm Terminate() 


ActiveWorkbook.Close (False) 
End Sub 


a] 创建 【查询 结果 】 窗 体 


现在 已 经 完成 了 【薪金 查询 】 窗 体 的 创建 过 程 , 查询 之 后 的 结果 还 需要 一 个 窗 体 来 显示 ， 
所 以 接 下 来 将 介绍 显示 【查询 结果 】 的 用 户 窗 体 的 创建 和 设计 过 程 。 该 窗 体 将 显示 相应 员工 
的 个 人 薪金 信息 ， 具 体 的 操作 步骤 如 下 。 

@ 册 在 VBA 代码 窗口 中 依次 选择 【插入 】> 【用户 窗 体 ]】 菜单 命令 , 插入 一 个 名 为 UserForm2 


的 用 户 窗 体 ， 将 其 名 称 属性 值 修 改 为 “查询 结果 ， 如 图 17-38 所 示 。 
到 按照 前 面 介绍 的 添加 标签 的 方法 , 在 UserForm2 用 户 窗 体 中 分 别 添加 如 图 17-39 所 示 的 
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Cry 
a 


专人 O 
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图 17-38 ”修改 窗 体 显示 标题 图 17-39 添加 多 个 标签 


@ 旨 修改 各 个 标签 的 “名 称 ” 属 性. 选中 【销售 额 ] 标签 , 修改 其 “名称 ”属性 值 为 Label_Sale， 
如 图 17-40 所 示 。 

@ 锣 按照 同样 的 方法 将 【出 差 】 标 签 的 名 称 修改 为 Label_ Out， 将 【天 】 标 签 的 名 称 修改 为 
Label_Day, 将 【差旅费 ] 标 签 的 名 称 修改 为 Label_Outpay ;将 [奖金] 标签 的 名 称 修改 为 Label_Prize， 
如 图 17-41 所 示 。 

加 加 按照 前 面 添加 文本 框 的 方法 , 在 UserForm2 用 户 窗 体 中 分 别 添加 如 图 17-42 所 示 的 文本 框 。 

@gj 按照 统一 的 命名 格式 对 文本 框 进行 重 命名 . 例如 , 选择 【编号 】 文 本 框 , 修改 其 “名称 
属性 值 为 Txt_ID ， 使 该 文本 框 与 定义 的 全 局 变量 ID 相对 应 。 按 照 这 种 方法 分 别 将 其 他 文本 框 进 
行 重 命名 ， 各 个 文本 框 的 名 称 对 应 如 下 : 


@ “姓名 ”文本 框 的 名 称 修改 为 Txt_Name; 

@ “部门” 文本 框 的 名 称 修改 为 Txt_Depart; 

@ “学 历 ” 文 本 框 的 名 称 修改 为 Txt_Degree; 

@ “参加 工作 时 间 ” 文 本 框 的 名 称 修改 为 Work_Date; 
@ “基本 工资 ”文本 框 的 名 称 修改 为 Basic_Pay; 

@ “工龄 工资 ”文本 框 的 名 称 修改 为 WorkDate_pay; 
@@ “迟到 次 数 ” 文 本 框 的 名 称 修改 为 Txt_Late; 

@ “早退 次 数 ” 文 本 框 的 名 称 修改 为 Txt_Early; 

@ “旷工 次 数 ” 文 本 框 的 名 称 修改 为 Txt_Truancy; 

@ “缺勤 扣 款 ”文本 框 的 名 称 修改 为 Txt Punish; 

@ “加 班次 数 ” 文 本 框 的 名 称 修改 为 Over_ Work; 

@ “加 班 费 ”文本 框 的 名 称 修改 为 Overwork Pay; 

@ “出差 天 数 ” 文 本 框 的 名 称 修改 为 Txt_Travel; 

@ “差旅费 ”文本 框 的 名 称 修改 为 Travel pay; 

@ “销售 额 ” 文 本 框 的 名 称 修改 为 Txt_Sale; 

@ “奖金 ”文本 框 的 名 称 修改 为 Sale_Pay; 

@@ “本 月 实 发 工资 ”文本 框 的 名 称 修改 为 Txt_ money。 
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这 样 所 有 的 文本 框 名 称 将 分 别 对 应 各 自 的 全 局 变量 。 


@ 副 按照 前 面 添加 命令 按钮 的 方法 , 在 该 用 户 窗 体 中 分 别 添加 两 个 显示 文本 为 “返回 和 退 
的 命令 按钮 ， 如 图 17-43 所 示 。 


出 系统 - 


码 】 菜 六 


图 17-41 修改 【奖金 】 标 签 的 名 称 属性 


EE Er 
| 


人 过 并 Sn GD 
«LL 


图 17-42 添加 多 个 文本 框 


在 【查询 结果 】 窗 体 中 ， 显 示 所 查询 的 员工 的 详细 信息 ， 需 要 对 UserForm2 用 户 窗 体 的 
Activate 事件 进行 处 理 。 在 此 事件 处 理 程序 中 将 查询 到 的 员工 详细 信息 显示 在 UserForm2 用 
户 窗 体 上 相应 的 文本 框 中 。 


@ 旨 j 在 【工程 资源 管理 器 】 窗 口中 右 击 UserForm2 选项 ,在 弹出 的 快捷 菜单 中 选择 【查看 代 


单 命令 ， 


或 者 在 UserForm2 窗 体 中 双击 鼠标 ， 


添加 Activate 事件 的 处 理 代码 。 


Private Sub UserForm Activate() 
TXTD Toxt = TD 
Txt Name.Text = Sname 
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图 17-43 ”添加 两 个 命令 按钮 


打开 UserForm2 用 户 窗 体 的 代码 编辑 窗 


Txt Depart .Text = depart 
Txt Degree.Text = degree 
Basic Pay.Text = basic money 
Work Date.Text = work time 
WorkDate pay.Text = time money 
Txt Late.Text = late 
Txt Early.Text = early 
Txt Truancy.Text = truancy 
Txt Punish.Text = punish money 
Over Work.Text = overtime 
Overwork Pay.Text = overwork money 
' 如 果 员 工 出 差 ， 则 显示 关于 出 差 天 数 和 差旅费 的 标签 与 文本 框 
If flag = True Then 
Label Out.Visible = True 
Label Outpay.Visible = True 
Txt Travel.Visible = True 
Travel pay.Visible = True 
Label Day.Visible = True 
Txt Travel.Text = travel 
Travel pay.Text = travel money 
Else 
Label Day.Visible = False 
Label Out.Visible = False 
Label Outpay.Visible = False 
Txt Travel.Visible = False 
Travel pay.Visible False 
End If 
' 如 果 是 销售 部 的 员工 ， 则 显示 关于 销售 额 和 奖金 的 标签 与 文本 框 
If depart = "销售 部 " Then 
Label Sale.Visible = True 
Label Prize.Visible = True 
Txt_Sale.Visible = True 
Sale Pay.Visible = True 
Txt_Sale.Text = sale 
Sale Pay.Text = prize money 
Else 
Label Sale.Visible = False 
Label Prize.Visible = False 
Txt Sale.Visible = False 
Sale Pay.Visible = False 
End If 
Txt money.Text = pay 
End Sub 


@9j 接 下 来 分别 为 【查询 结果 】 窗 体 中 的 各 个 按钮 添加 Click 


用 


jp 


有 件 的 处 理 代码 。 首 先 双 


(= 


【返回 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 输 入 代码 如 下 。 
Private Sub CommandButton1l Click() 
UserForm2 .Hide "隐藏 【查询 结果 】 窗 体 
UserForml .Show "显示 【薪金 查询 】 窗 体 
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End Sub 


然后 ， 双 击 【 退 出 系统 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 输 入 代码 如 下 。 


Private Sub CommandButton2 Click() 


UserForm2 .Hide "隐藏 【查询 结果 】 窗 体 
ActiveWorkbook.Close (True) ' 保 存 并 关闭 工作 短 
End Sub 


荐 好 最 后 ,与 【薪金 查询 】 窗 体 相同 ， 必 须 添加 一 个 用 户 窗 体 关闭 事 件 的 处 理 过 程 ， 以 保证 
当 用 户 关闭 窗口 时 关闭 Excel 工作 簿 ， 在 代码 窗口 中 输入 下 面 的 语句 。 
Private Sub UserForm Terminate() 


ActiveWorkbook.Close (False) 
End Sub 


到 此 就 完成 了 【查询 结果 】 用 户 窗 体 的 代码 编写 。 


| 创建 【管理 员 登 录 】 窗 体 


最 后 将 介绍 员工 薪金 管理 系统 中 的 权限 管理 部 分 .权限 管理 可 以 保护 管理 系统 中 的 数据 ， 
防止 无 关 人 员 对 工作 秒 进 行 修改 。 这 里 创建 一 个 【管理 员 登 录 】 窗 体 ， 只 有 拥有 管理 员 密 码 
的 用 户 才能 进入 工作 簿 ， 具 体 的 操作 步 又 如 下 。 

@ 央 在 VBA 代码 窗口 中 选择 【插入 】> 【用 户 窗 体 】 菜单 命令 ,插入 一 个 名 为 UserForm3 
的 用 户 窗 体 ， 然 后 将 其 显示 标题 修改 为 “管理 员 登 录 "， 如 图 17-44 所 示 。 

到 单 击 【 工 具 箱 】 中 的 【标签 】 按 钮 A|， 在 窗 体 中 添加 一 个 名 为 Labell 的 标签 ， 然 后 修 
改 该 标签 的 Caption 属性 值 为 “输入 密码 :“， 如 图 17-45 所 示 。 


EC 一 CT 
x Py 


图 17-44 插入 UserForm3 用 户 窗 体 17-45 ”添加 标签 并 修改 其 显示 文本 


单 击 Font 属性 中 带 省 略 号 的 按钮 打开 【字体 】 对 话 框 ,设置 该 标签 的 字体 样式 ， 如 图 
17-46 所 示 ， 设 置 完成 后 单 击 【 确 定 】 按 钮 完成 对 该 标签 字体 的 设置 。 
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@ 旨 单 击 【] 
如 图 17-47 所 示 。 


图 17-46 设置 标签 的 字体 图 17-47 添加 文本 框 


修改 该 文本 框 PasswordChar 属性 值 为 “*”。 之 后 在 使 用 TextBox1 文本 框 时 ， 其 中 输入 
的 密码 都 会 显示 为 相应 长 度 的 星 号 ， 如 图 17-48 所 示 。 


上 @ 弛 单 击 【工具 箱 】 中 的 【命令 按钮 ] 按钮 耳 , 在 窗 体 中 添加 两 个 命令 按钮 并 将 其 Caption 


属性 分 别 设置 为 “登录 ”和 “返回 "， 如 图 17-49 所 示 。 


图 17-48 设置 PasswordChar 的 属性 值 图 17-49 添加 两 个 命令 按钮 


接 下 来 为 这 两 个 按钮 指定 Click 事件 。 首 先 双击 【和 登录】 按钮 ， 进 入 该 按钮 的 代码 编辑 
窗口 ， 输 入 下 面 的 代码 程序 。 


Private Sub CommandButtonl1 Click() 
If TextBoxl.Text = "123456" Then 
UserForm3.Hide "隐藏 【管理 员 登 录 】 窗 体 
Else 
MsgBox "密码 不 正确 ! " 
End If 
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End Sub 


这 段 代 码 实际 上 是 设置 了 管理 员 登 录 密码 。 在 实例 中 将 密码 设置 为 “123456”， 如 果 用 
户 输入 此 密码 ， 则 可 隐藏 【管理 员 登 录 】 窗 体 ， 进 入 工作 短 中 ; 如 果 密 码 输入 不 正确 ， 则 系 
统 会 自动 弹出 提示 信息 。 

然后 双击 【返回 】 按 钮 ， 进 入 该 按钮 的 代码 编辑 窗口 ， 输 入 下 面 的 程序 代码 : 

Private Sub CommandButton2 Click() 

UserForm3.Hide “隐藏 【管理 员 登 录 】 窗 体 


UserForml .Show “显示 【薪金 查询 】 窗 体 
End Sub 


@@ 加 为 了 避免 在 关闭 【管理 员 登 录 ) 窗 体 时 进入 工作 簿 , 需要 对 此 窗 体 的 关闭 事件 进行 处 理 ， 
即 在 上 述 代 码 窗口 中 输入 下 面 的 程序 语句 。 
Private Sub UserForm_Terminate () 
ActiveWorkbook.Close (False) 
End Sub 
@@j 为 了 确保 用 户 在 打开 工作 簿 时 即 可 进入 【薪金 查询 】 窗 体 ,而 不 是 直接 进入 工作 簿 ， 需 
要 设置 工作 簿 的 打开 事件 。 双 击 【 工 程 资源 管理 器 】 窗 口中 的 ThisWorkBook 选项 ， 进 入 其 代码 
编辑 窗口 ， 输 入 下 面 的 代码 程序 。 
Private Sub Workbook Open () 
Sheets ("首页 ") .Activate ' 显 示 工 作 簿 的 首页 
UserForml.Show “' 显 示 【 薪 金 查询 】 窗 体 
End Sub 
@ 到 返回 “员工 薪金 管理 4” 工 作 簿 中 ,切换 到 “首页 ”工作 表 ， 选 择 【 文 件 】 一 【选项 】 
菜单 命令 ， 即 可 打开 【Excel 选项】 对 话 框 在 【高 级 】 选 项 卡 中 ， 取 消 选 中 【显示 水 平 滚动 条 】、 
【显示 工作 表 标 签 】 和 【显示 行 和 列 标题 】 复 选 框 ， 如 图 17-50 所 示 。 单 击 【 确 定 】 按 钮 保存 设 
置 并 返回 “首页 ”工作 表 中 ， 其 效果 如 图 17-51 所 示 。 


EE EC 


图 17-50 【Excel 选项 】 对 话 框 图 17-51 隐藏 各 项 信息 后 的 效果 
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17:3 
运行 员工 薪金 管理 系统 


至 此 已 经 完成 薪金 管理 系统 的 创建 了 ， 接 下 来 ， 体 验 一 下 自己 设计 的 系统 吧 。 


@ 遇 重新 打开 “员工 薪金 管理 4” 工 作 筹 ， 此 时 ,系统 首先 将 打开 【薪金 查询 】 对 话 框 ， 输 
入 查询 的 员工 编号 ， 就 可 以 获得 某 个 员工 的 个 人 信息 ， 例 如 输入 w116， 如 图 17-52 所 示 。 

@ 到 输入 编号 之 后 ， 单 击 【 开 始 查询 】 按 钮 ,系统 将 自动 关闭 【薪金 查询 】 对 话 框 ， 并 显示 
【查询 结果 】 对 话 框 ， 从 中 可 以 查看 该 员工 的 详细 信息 ， 如 图 17-53 所 示 。 


Pr 


BnT fea 2002-4 


1 次 


ce 畏 入 员工 纺 作 


ws | ['™ 


| 。 Bx: Ow 


本 月 实 发 工资 : 
返 同 退出 系统 


17-52 【薪金 查询 】 对 话 框 图 17-53 【查询 结果 】 对 话 框 


@@ 旨 单 击 【 返 回 】 按 钮 即 可 关闭 【查询 结果 】 对 话 框 ， 并 返回 到 【薪金 查询 】 对 话 框 中 ， 在 
文本 框 中 输入 另 一 位 员工 的 编号 ， 这 里 输入 w101， 如 图 17-54 所 示 。 

@ 滑 单 击 【 开 始 查询 】 按 钮 ， 进入 【查询 结果 】 对 话 框 ， 可 以 看 到 这 次 的 查询 结果 中 没有 显 
示 销 售 额 和 奖金 信息 ， 因 为 该 员工 不 是 销售 部 员工 ， 所 以 该 员工 会 有 出 差 记录 ， 也 不 会 显示 出 差 
的 信息 ， 如 图 17-55 所 示 。 
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输入 员工 编号 


wlol 


17-54 ”输入 员工 编号 w101 


参加 工作 时 间 | 2001-10-15 


3 毗 2 次 


[1 次 :| 次 mI:|o 次 


本 月 实 发 了 资 : 


| 进出 系统 


17-55 ”显示 查询 结果 


人 名单 击 【 返 回 】 按 钮 返回 到 【薪金 查询 】 对 话 框 中 .输入 w220， 然 后 单 击 【开始 查询 】 按 
钮 ， 此 时 系统 会 弹出 “不 存在 这 个 员工 编号 ! ”的 提示 信息 ,这 是 因为 输入 了 一 个 在 工作 簿 中 不 存 


在 的 员工 编号 ， 如 图 17-56 所 示 。 


@ 便 单 击 提示 信息 对 话 框 中 的 【确定 】 按 钮 ， 返 回 到 【薪金 查询 】 对 话 框 中 ， 如 果 用 户 拥有 


管理 员 密码 ， 就 可 以 单 击 【 管 理 员 登录 】 按 钮 ， 进入 【 管 


ED 


Nicrosoft Excel (X| 
不 存在 这 个 员工 编号 4 
[确定 


图 17-56 员工 编号 不 存在 的 提示 信息 


理 员 登录 】 对 话 框 中 ， 如 图 17-57 所 示 。 


ET 


图 17-57 【管理 员 登 录 】 对 话 框 


@ 强 在 【管理 员 登 录 】 对 话 框 中 输入 正确 的 密码 “123456 ， 然 后 单 击 【登录 】 按 钮 ， 系 统 就 
会 自动 关闭 【管理 员 登 录 】 对 话 框 ， 并 进入 “员工 薪金 管理 4.xlsm ”工作 簿 中 。 
人 @ 台 如 果 在 该 对 话 框 中 的 【密码 】 文 本 框 中 输入 不 正确 的 密码 ， 例 如 输入 “abcdef ， 然 后 单 


Hr 
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【登录 】 按 钮 ， 系 统 就 会 弹出 “密码 不 正确 !” 的 提示 信息 ， 如 图 17-58 所 示 。 


17-58 ”密码 错误 提示 信息 


管理 员 进 入 员工 薪金 管理 系统 后 就 可 以 进行 各 种 操作 了 ， 如 进行 前 面 所 讲述 的 汇总 考勤 
记录 或 计算 员工 薪金 的 操作 , 还 可 以 进行 添加 新 员工 、 修 改 员工 信息 、 完 善 程序 代码 等 操作 。 
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企业 的 收 支 情况 决定 了 企业 的 利润 。 通 过 建立 收 支管 理 系统 ， 企 业 可 以 对 各 种 收入 和 支 
出 进行 录入 管理 ， 方 便 财务 核算 企业 收入 项 目 ， 帮 助 公司 进行 财务 规划 。 使 用 Excel VBA 创 
建 企业 收 支 管理 系统 ， 可 以 极 大 地 方便 企业 对 收 支 情况 进行 统计 、 汇 总 、 分 析 和 预测 。 


18.1 
设计 “企业 收 支管 理 ” 工 作 簿 


本 节 将 创建 的 “企业 收 支管 理 ” 工 作 敌 包含 6 个 工作 表 ， 分 别 是 收入 登记 、 支 出 登记 、 
收入 汇总 、 支 出 汇总 、 收 支 对 比 和 收 支 项 目 。 


[| 设计 收 支 登记 工作 表 


收 支 登记 工作 表 包 含 了 收入 登记 工作 表 和 支出 登记 工作 表 ， 这 两 个 工作 表 一 个 用 于 登记 
收入 ， 一 个 用 于 登记 支出 ， 但 是 其 中 的 内 容 是 相同 的 。 下 面 将 介绍 创建 收 支 登记 工作 表 的 具 
体操 作 步 又 。 


@ 册 首先 创建 一 个 Excel 工作 短 ， 将 Sheetl 工作 表 的 名 称 修改 为 “收入 登记 ， 然 后 在 该 工 
作 表 中 输入 下 面 的 一 些 标题 文字 并 修改 标题 的 背景 色 ， 如 图 18-1 所 示 ; 切换 到 【插入 】 选 项 卡 ， 
在 【插图 】 选 项 组 中 的 【形状 】 下 拉 列 表 中 单 击 【 和 矩形 】 组 中 的 【 圆 角 矩形】 按钮 器， 在 第 一 行 
中 绘制 一 个 圆 角 矩形 按钮 ， 如 图 18-2 所 示 。 


[FETE EE | Wa- 
和 | 可 -en| 国 国 = 。% = := mm mm 
Ya 的 ET 
a er NA 
| 入 
四 司 Fim 
, | EE 
:RA 全 额 ”| 缠 辑 时 间 | ED :| 收入 项 目 金额 ”| 编辑 时 间 | EE] 
4 上 + ee ea! 1 
站 一 上 一 一 
上 上 
本 i A 于 
总 五 ED EE EF 


图 18-1 “收入 登记 ”工作 表 18-2 绘制 一 个 圆 角 矩形 按钮 
单 击 【格式 】 选 项 卡 【 形 状 样式 】 选 项 组 中 的 【其 他 】 按 钮 x ， 选 择 下 拉 列 表 中 的 形状 


样式 ， 如 图 18-3 所 示 。 
右 击 添加 的 圆 角 和 矩形， 选择 弹出 菜单 中 的 【编辑 文字 】 菜 单 命令 ， 添 加 “收入 登记 ” 文 
” 字号 为 “12”， 


本 ， 然 后 分 别 设置 文本 的 “字体 ”为 “华文 中 宋 


18-4 所 示 。 


对 齐 方式 为 “居中 ”， 


如 图 


图 18-3 设置 按钮 样式 


18-4 添加 文本 内 容 


@ 到 按照 上 述 添加 圆 角 矩形 的 方法 在 工作 表 中 添加 其 他 几 个 圆 角 矩形 ， 如 图 18-5 所 示 。 
到 插入 艺术 字 。 在 【插入 】 选 项 卡 中 , 单 击 【文本 】 选 项 组 中 的 【艺术 字 】 按 钮 ， 即 可 弹 


出 各 种 艺术 字 效 果 ， 如 图 18-6 所 示 。 


FEI 人 em -Microtof Decal ma 
Th mS eK ns SN TR “O05 


问好 国足 3 和 三 是 多加 四 2 an 


[和 Mom 全 + PE 3 
Rh Ll EJ 2 
| % 加 
rt 加 


图 18-5 添加 其 他 几 个 圆 角 矩形 


从 中 选择 相应 的 艺术 字 效 果 ， 即 可 弹出 【请 


从 中 输入 文本 内 容 “登记 ” 
18-8 所 示 。 


上 | 
EEC EEC RE CCC 
时 Ee - 

全 二 
二 = 


18-6 选择 艺术 字 效 果 


在 此 放置 您 的 文字 】 标 签 ， 如 图 18-7 所 示 。 
并 设置 其 字体 、 字 号 ， 然 后 将 其 放置 在 工作 表 的 右上 角 ， 如 图 
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图 18-7 【请 在 此 放置 您 的 文字 】 标 签 18-8 设置 文本 内 容 


在 “收入 登记 ”工作 表 中 按 下 Ctrl+A 组 合 键 选中 表 中 的 全 部 内 容 ， 再 按 下 Ctrl+C 组 合 
键 复制 工作 表 中 的 内 容 , 然后 切换 到 第 二 个 工作 表 中 , 按 下 CtrltV 组 合 键 粘贴 复制 的 内 容 。 将 第 
二 个 工作 表 的 标签 修改 为 “支出 登记 ， 再 将 表 中 的 A2 单元 格 的 内 容 修改 为 “支出 项 目 "， 其 他 
内 容 保 持 不 变 。 这样“ 支出 登记 ”工作 表 也 设置 完成 了 ， 如 图 18-9 所 示 。 


图 18-9 复制 内 容 到 “支出 登记 ”工作 表 中 


收 支 汇总 工作 表 包 括 两 个 工作 表 ， 分 别 是 “收入 汇总 ”工作 表 和 “支出 汇总 ”工作 表 ， 
这 两 个 工作 表 的 格式 相同 。 收 支 汇总 是 将 企业 的 收 支 进行 月 份 汇总 和 项 目 汇总 。 


@ 生 在 “企业 收 支 管理 ”工作 簿 中 ， 将 第 三 个 工作 表 标 签 修改 为 “收入 汇总 "， 并 向 表 中 插 
入 如 图 18-10 所 示 的 内 容 。 


408 


第 18 章 企业 收 支管 理 系 统 


| 
图 18-10 “收入 汇总 ”工作 表 


@g 选择 【文件 】 >【 选 项】 菜单 命令 ,打开 【Excel 选项 】 对 话 框 ， 切 换 到 【高 级 】 选 项 
卡 ， 在 【此 工作 表 的 显示 选项 】 组 中 取消 选中 【显示 网 格 线 】 复 选 框 ， 如 图 18-11 所 示 。 单 击 【 确 
定 】 按 钮 ， 即 可 取消 该 工作 表 中 显示 网 格 线 ， 如 图 18-12 所 示 。 

@gj 新 建 一 个 标签 名 称 为 “支出 汇总 ”的 工作 表 ， 然 后 按照 前 面 收 支 登记 时 使 用 的 方法 ,分 
别 使 用 CtrlHA 和 Ctrl+C 的 组 合 键 对 复制 “收入 汇总 ”工作 表 中 的 内 容 , 然后 切换 到 “支出 汇总 ” 
工作 表 ， 按 下 Ctrl+V 组 合 键 粘贴 复制 的 内 容 ， 如 图 18-13 所 示 。 


:ol 这 项 


‘| mn) nme se) We le ete 汇总 


CD 


工 作 表 的 呈 丰 过 R(G):。 [同志 
Sri rH) 

口 在 天 元 异 和 三 示 公式 FF 其 计算 计 果 B) 
口 从 丰 到 二 号 示 工 作 表 (0 


图 18-11 【Excel 选项 】 对 话 框 图 18-12 取消 显示 网 格 线 


@ 约 最 后 在 【Excel 选项 】 工 作 表 中 取消 选中 【显示 网 格 线 】 复 选项 ， 取 消 网 格 线 的 显示 ， 
效果 如 图 18-14 所 示 。 
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Excel 2010 VeA EE 


吕 Ce -| 加 a ee een bee 


按 月 份 汇总 - 和 
一 一 一 = 
A EN 之 Cn a | es eg ae WE er 
图 18-13 “支出 汇总 ”工作 表 图 18-14 取消 显示 网 格 线 


要 三 设计 “ 收 支 对 比 ”、“ 收 支 项 目 ” 工 作 表 


收 支 对 比 主要 是 比较 每 个 月 汇总 的 收入 和 支出 金额 ， 设 计 的 “ 收 支 对 比 ” 工 作 表 如 
图 18-15 所 示 。 由 于 收入 项 目 与 支出 项 目 一 般 不 同 ,“ 收 支 项 目 ” 工 作 表 就 是 将 企业 收入 
与 支出 的 项 目 在 此 表 中 列 出 , 以 方便 其 他 表 的 引用 。 设计 的 “ 收 支 项 目 ” 工 作 表 如 图 18-16 
所 示 。 


一 
月 份 ， 收 入 金额 支出 金额 
1 


了 


四 
县 证 


上 
se DA PR WA EE rR i 


图 18-15 ” 收 支 对 比 工作 表 图 18-16 ” 收 支 项 目 工作 表 


实现 企业 收 支 管理 功能 


在 前 面 章节 中 完成 了 “企业 收 支 管理 ”工作 德 的 设计 ， 但 是 到 现在 为 止 ， 工 作 敌 中 还 没 
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有 任何 内 容 ， 接 下 来 将 介绍 如 何在 这 些 工 作 表 中 进行 收入 与 支出 的 登记 、 收 入 与 支出 的 汇总 
以 及 收入 与 支出 的 对 比 。 


[| 实现 收 支 快 速 登记 


收 支 登记 的 内 容 主 要 有 收 支 项 目 与 登记 日 期 、 时 间 以 及 说 明文 字 。 下 面 介绍 以 列表 的 形 
式 动态 显示 收 支 项 目 ， 并 实现 登记 日 期 和 时 间 的 自动 添加 ， 具 体 的 操作 步骤 如 下 。 


@ 遇 首先 切换 到 “ 收 支 项 目 ”工作 表 中 ， 这 里 添加 一 些 收 支 项 目 ， 如 图 18-17 所 示 。 

@ 到 切换 到 “收入 登记 ”工作 表 中 ， 在 【开发 工具 】 选 项 卡 ， 单 击 【 控 件 】 选 项 组 中 的 【 插 
入 】 按 钮 ， 单 击 列表 中 【列表 框 (ActiveX 控件 )】 按 钮 国 ， 在 工作 表 中 添加 一 个 用 于 显示 收入 
项 目的 列表 框 ， 如 图 18-18 所 示 。 


Da 


WAC Le 
FT 


18-17 添加 收 支 项 目 图 18-18 添加 一 个 列表 框 


按 Alt+F11 组 合 键 , 打开 VBA 代码 编辑 窗口 。 在 【工程 资源 管理 器 】 窗 口中 , 双击 “Sheet 
(收入 登记 )” 选 项 ， 打 开 Sheetl 的 代码 编辑 窗口 ， 输 入 代码 如 下 : 
Private Sub Worksheet SelectionChange (ByVal Target As Range) 
' 当 前 活动 单元 格 属于 项 目 列 时 自动 显示 项 目 列表 框 


Static list_show Rs Boolean ' 定 义 一 个 静态 布尔 变量 
If Target.Column = 1 And Target.row > 2 Then 


Call list start ' 显 示 列表 框 
list show = True 
Else 


If list show = True Then Call list end ' 隐 藏 列表 框 
list show = False 
End If 
End Sub 


当 工 作 表 中 的 当前 选择 区 域 发 生变 化 时 ， 就 会 执行 上 述 代码 。 该 段 代码 表示 当前 活动 单 
元 格 是 否 是 第 1 列 第 2 行 以 下 的 内 容 ， 如 果 是 ， 就 执行 list_start 过 程 ， 即 显示 列表 框 ， 并 将 
静态 布尔 变量 list_show 赋值 为 True; 如 果 不 是 ， 则 通过 判断 list_show 的 真 假 ， 来 决定 是 否 
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调用 list_end 过 程 ， 即 隐藏 列表 框 。 

在 上 述 代码 中 之 所 以 将 布尔 变量 list_show 定义 为 静态 变量 , 是 因为 在 过 程 中 所 用 到 的 静 
态 变量 的 值 可 以 保留 下 来 ， 在 下 一 次 调用 此 过 程 时 ， 变 量 的 初 值 是 上 次 调用 结束 时 被 保留 的 
值 ， 不 会 被 重新 初始 化 。 


@ 到 上 述 代码 中 所 用 到 的 list_start 过 程 和 list_end 过 程 是 两 个 用 户 自 定义 过 程 ,在 Sheetl 的 
代码 编辑 窗口 中 添加 实现 这 两 个 过 程 的 代码 如 下 。 


"调用 收入 项 目 列表 框 供 选择 
Sub list start() 
Application.ScreenUpdating = False 
With ListBoxl  ' 初 始 化 项 目 列表 框 
Visible = True 
.Clear 
.Width = ActiveCell .Width 
.Height = ActiveCell.Height * 8 
.Left = ActiveCell.Left + ActiveCell .Width 
.Top = ActiveCell.Top 
.BackColor = RGB(0，100，252) ' 蓝 色 
.RutoLoad = True 
End With 
"设置 项 目 列表 框 内 容 
Dim row_ As Integer, Item As Range 
row = Sheets (" 收 支 项 目 ") . [B1] .CurrentRegion.Rows.count 
For Each Item In Sheets (" 收 支 项 目 ") .Range ("C3:C" & row ) 
ListBoxl1.AddItem Item.Value 
Next Item 


End Sub 
"隐藏 项 目 列表 框 并 复位 
Sub list_end() 
Application.ScreenUpdating = False 
With ListBoxl 
.Visible = False 


.Clear 
Top = 工 
.Height = 1 
End With 
Application.ScreenUpdating = True 
End Sub 


@ 绩 列表 框 中 列 出 了 所 有 的 收入 项 目 , 当 用 户 双击 列表 框 中 的 内 容 时 便 可 以 在 活动 单元 格 中 
插入 一 项 收入 内 容 ， 所 以 需要 处 理 列表 的 双击 事件 ， 在 Sheetl 代码 编辑 窗口 中 添加 如 下 代码 。 


Private Sub ListBoxl DblClick(ByVal Cancel As MSForms .ReturnBoolean) 
' 双 击 项 目 清单 中 的 列表 项 ， 将 其 赋值 于 活动 单元 格 
Cancel = True 
ActiveCell.Value = ListBoxl.Value ' 将 项 目 赋 值 给 活动 单元 格 
Call list end ' 调 用 1ist_end 过 程 ， 隐 藏 列表 框 
End Sub 
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这 里 参数 Cancel 在 双击 列表 框 事件 发 生 时 为 False。 由 于 在 上 述 过 程 中 将 此 参数 设 为 
True， 所 以 该 过 程 执行 结束 之 后 不 再 执行 双击 事件 。 


上 @ 量 在 VBA 代码 窗口 的 工具 栏 中 再 次 单 击 【 设 计 模式 】 按 钮 疾 ,， 然 后 关闭 VBA 代码 窗口 返 
本 “收入 登记 ”工作 表 ， 从 中 选择 第 1 列 第 2 行 以 下 的 单元 格 , 例如 选择 A7 单元 格 ， 即 可 得 到 
如 图 18-19 所 示 的 效果 。 


在 弹出 的 列表 框 中 双击 “销售 额 ” 选 项 ， 即 可 将 其 添加 到 活动 单元 格 中 ， 如 图 18-20 所 示 。 


ym 


图 18-19 弹出 的 列表 框 图 18-20 双击 某 选项 将 其 添加 到 单元 格 中 


@@j 自动 在 “编辑 时 间 ” 列 插入 收入 项 目的 插入 时 间 ， 在 Sheetl 的 代码 编辑 窗口 中 添加 如 
下 代码 。 


Private Sub Worksheet Change(ByVal Target Rs Range) 
"自动 登记 编辑 时 间 
If Target.Column = 2 And Target.Row > 2 Then 
If Target.Offset (0, -1) <> "" Then 
Target.Offset (0, 1) .Value = Now() 
Else ' 未 填写 项 目 时 弹出 提示 信息 对 话 框 
MsgBox "收入 项 目 尚未 填写 ! "， 64， "提示" 
Target .Select 
End If 
End If 
End Sub 


加 关闭 VBA 代码 窗口 返回 到 “收入 登记 ”工作 表 中 ， 例 如 在 B7 单元 格 中 输入 金额 ， 选 
择 C7 单元 格 ， 即 可 得 到 编辑 时 间 ， 如 图 18-21 所 示 。 如 果 没 有 选择 收入 项 目 ， 而 直接 输入 金额 ， 
系统 则 会 弹出 如 图 18-22 所 示 的 提示 信息 ,提示 用 户 “ 收 入 项 目 尚 未 填写 !“。 


SD 
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图 18-21 显示 编辑 时 间 图 18-22 系统 提示 信息 
支出 登记 与 收入 登记 基本 相同 ， 不 同 之 处 就 是 列表 框 中 显示 的 项 目 来 源 于 “ 收 支 项 目 ” 
工作 表 中 的 支出 列 。 


@ 闻 按照 同样 的 方法 ,在 “支出 登记 ”工作 表 中 添加 一 个 用 于 插入 支出 项 目的 列表 框 。 切 换 
到 “支出 登记 ”工作 表 ， 在 【开发 工具 】 选 项 卡 ， 单 击 【 控 件 】 选 项 组 中 的 【插入 】 按 钮 ， 单 击 
列表 中 【列表 框 (ActiveX 控件 )】 按 钮 国 ， 在 工作 表 中 添加 一 个 名 为 ListBox1 的 列表 框 ， 如 图 
18-23 所 示 。 


按 Alt+F11 组 合 键 , 进入 VBA 代码 窗口 , 双击 【工程 资源 管理 器 】 窗 口中 的 “Sheet2 ( 支 
出 登记 )” 选 项 ， 打 开 Sheet2 的 代码 编辑 窗口 ， 输 入 如 下 代码 : 


Private Sub ListBox1l DblClick(ByVal Cancel As MSForms.ReturnBoolean) 
' 双 击 项 目 清单 中 的 列表 项 ， 将 其 赋值 给 活动 单元 格 
Cancel = True 
ActiveCell.Value = ListBoxl.Value ' 将 项 目 赋 值 给 活动 单元 格 
Call list_end ' 调 用 1ist_end 过 程 ， 隐 藏 列表 框 
End Sub 


Private Sub Worksheet SelectionChange (ByVal Target As Range) 
' 当 前 活动 单元 格 属于 项 目 列 时 自动 显示 项 目 列表 框 
Static list_show Rs Boolean “定义 一 个 静态 布尔 变量 
If Target .Column = 1 And Target.Row > 2 Then 
Call list_start ' 显 示 列表 框 
list show = True 
Else 
IE list show = True Then Call list end ' 隐 藏 列表 框 
list show = False 
End If 
End Sub 
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"调用 支出 项 目 列表 框 供 选择 
Sub list start() 

Application.ScreenUpdating = False 

With ListBoxl  ' 初 始 化 项 目 列表 框 
"Visible = True 
-Clear 
.Top = ActiveCell.Top 
.Left = ActiveCell.Left + ActiveCell .width 
.Width = ActiveCell .Width 
.Height = ActiveCell.Height * 8 
.BackColor = RGB(0，100，252) ' 蓝 色 
.RutoLoad = True 

End With 

"设置 项 目 列表 框 内 容 


Dim row_ As Integer, Item As Range 


row_ = Sheets (" 收 支 项 目 ") . [D1] .CurrentRegion .Rows .count 
For Each Item In Sheets (" 收 支 项 目 ") .Range ("E3:E" & row ) 


ListBoxl.AddItem Item.Value 
Next Item 
End Sub 


"隐藏 项 目 列表 框 并 复位 
Sub list_end() 
Application.ScreenUpdating = False 
With ListBoxl 
.Visible = False 


.Clear 
Top=1 
Height = 1 
End With 
Application.ScreenUpdating = True 
End Sub 


Private Sub Worksheet Change(ByVal Target As Range) 
' 自 动 登记 编辑 时 间 
IE Target.Column = 2 And Target.Row > 2 Then 
If Target.Offset (0, -1) <> "" Then 
Target .Offset (0, 1) .Value = Now() 
Else ' 示 填写 项 目 时 弹出 提示 信息 对 话 框 
MsgBox "收入 项 目 尚未 填写 ! "，64，,， "提示" 


Target .Select 
End If 
End If 
End Sub 
[0 好 关闭 VBA 代码 窗口 返回 “支出 登记 ”工作 表 ， 在 Excel 了 


[ 作 短 窗 


Excel 2010 VeA NEES 


上 的 【设计 模式 】 按 钮 圈 ， 然 后 任意 选择 第 1 列 第 2 行 以 下 的 单元 格 ， 例 如 选择 A3， 即 可 得 到 
如 图 18-24 所 示 的 效果 。 


图 18-23 ”添加 一 个 列表 框 控件 18-24 ”显示 列表 框 


下 面 将 看 到 如 何 实现 收 支 按 月 份 和 项 目 进行 汇总 ， 并 且 绘 制 出 相应 的 项 目 比 例 图 和 月 份 
走势 图 ， 具 体 的 操作 步 又 如 下 。 


@ 央 在 “收入 登记 ”工作 表 和 “支出 登记 ”工作 表 中 输入 一 些 收 支 项 目 ， 为 了 便于 后 面 的 月 份 
汇总 操作 ， 此 处 手动 修改 编辑 时 间 ， 使 登记 的 内 容 分 布 于 几 个 月 份 ， 如 图 18-25 和 图 18-26 所 示 。 


18-25 在 “收入 登记 ”工作 表 中 输入 收入 项 目 18-26 在 “支出 登记 ”工作 表 中 输入 支出 项 目 


到 按 Alt+F11 组 合 键 打开 VBA 代码 编辑 窗口 ， 从 中 选择 【插入 】> 【模块 】 菜 单 命令 ， 
插入 “模块 1 ， 在 该 模块 代码 窗口 中 添加 用 于 汇总 月 收入 的 自 定义 函数 CollectByMonth1 : 


Function CollectBYMonthl () ' 按 月 份 汇总 
Dim count As Integer 
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Dim row As Integer 
Dim month As Integer 
Dim Month In(1 To 12) As Long ' 月 收入 
For row= 1 To 12 
Month_In(row) = 0 ' 初 始 化 月 收入 数组 
Next row 
count = Sheets ("收入 登记 ") . [A1] .CurrentRegion.Rows.count 
For row = 3 To count 
month = Month (Sheets ("收入 登记 ") .cells (row，3)) “记录 登记 的 月 份 
Select Case month 


Case 1 

Month In(1) = Month In(1) + Sheets ("收入 登记 ") .Cells (row，2) 
Case 2 

Month_In(2) = Month_In(2) + Sheets(" 收 入 登记 ") .Cells (row，2) 
Case 3 

Month In(3) = Month In(3) + Sheets ("收入 登记 ") .Cells (row，2) 
Case 4 

Month In(4) = Month In(4) + Sheets ("收入 登记 ") .Cells (row，2) 
Case 5 

Month_In(5) = Month_In(5) + Sheets(" 收 入 登记 ") .Cells (row，2) 
Case 6 

Month In(6) = Month In(6) + Sheets ("收入 登记 ") .Cells (row, 2) 
Case 7 

Month In(7) = Month In(7) + Sheets ("收入 登记 ") .Cells (row，2) 
Case 8 

Month In(8) = Month In(8) + Sheets ("收入 登记 ") .Cells (row，2) 
Case 9 

Month In(9) = Month In(9) + Sheets(" 收 入 登记 ") .Cells (row，2) 
Case 10 

Month In(10) = Month In(10) + Sheets (" 收 入 登记 ") .Cells (row，2) 
Case 11 

Month In(11) = Month In(11) + Sheets(" 收 入 登记 ") .Cells (row，2) 
Case 12 

Month In(12) = Month In(12) + Sheets (" 收 入 登记 ") .Cells (row，2) 

End Select 
Next row 


CollectByMonthl = Month_In ' 返 回 月 收入 数组 
End Function 


@ 旨 双击 【工程 资源 管理 器 】 窗 口中 的 “Sheet3 (收入 汇总 ) ”选项 ， 打 开工 作 表 Sheet3 的 
代码 编辑 窗口 ， 从 中 输入 如 下 代码 程序 : 


Private Sub Worksheet Activate() 
Dim count1l As Integer, count2 As Integer 
Dim row As Integer, j As Integer 
count1l = Sheets (" 收 支 项 目 ") . [C1] .CurrentRegion.Rows.count 
count2 = Sheets (" 收 入 登记 ") . [A1] .CurrentRegion.Rows .count 
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辐 关闭 VBA 代码 窗口 返回 到 “收入 汇总 ”工作 表 ， 就 会 得 到 按 项 目 和 月 份 汇总 的 结果 ， 
如 图 18-27 所 示 。 
@ 国 在 E2 和 E17 单元 格 中 分 别 输入 “项 目 比例 图 ”和 “月 份 走势 图 "， 如 图 18-28 所 示 。 
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图 18-27 按 月 份 和 项 目 汇总 的 结果 图 18-28 输入 “项 目 比 例 图 ”和 “月 份 走势 图 ” 


插入 饼 图 。 选 中 每 个 项 目的 收入 ， 即 B4:C8 单元 格 区 域 ， 在 【插入 】 选 项 卡 中 ， 在 【图 表 】 选 
项 组 的 【 饼 图 】 下 拉 列 表 中 选择 “分 离 型 三 维 饼 图 ”， 在 工作 表 中 插入 一 个 图 表 ， 如 图 18-29 所 示 。 

插入 柱 形 图 。 选 中 B18:C30 单元 格 区 域 ,在 【插入 】 选 项 卡 中 , 在 【图 表 】 选 项 组 的 【 柱 
形 图 】 下 拉 列 表 中 选择 “ 簇 状 柱 形 图 ”在 工作 表 中 插入 一 个 图 表 ， 如 图 18-30 所 示 。 
0 | 本 
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图 18-29 插入 一 个 饼 形 图 图 18-30 插入 一 个 柱状 图 


@g 由 于 年 的 月 份 就 是 12 个 月 ， 不 会 变化 ， 所 以 月 份 走势 图 的 数据 源 就 是 单元 格 区 域 
“B18:C30”; 而 项 目 列 支 可 能 会 增加 新 的 项 目 ， 所 以 项 目 比例 图 的 数据 源 不 一 定 就 是 单元 格 区 域 
“B4:C8 。 这 就 需要 在 程序 中 实现 项 目 比例 图 的 数据 源 的 动态 变化 ,在 工作 表 Sheet3 的 代码 编辑 

窗口 中 输入 如 下 代码 : 


Sub Update Chartl (Item num As Integer) 
Dim num Rs Integer 
num = Item num + 3 ' 最 后 一 个 项 目 所 在 行 号 
Sheets ("收入 汇总 ") .ChartObjects (1) .Activate 
ActiveChart .SetSourceData Source:=Sheets ("收入 汇总 ") .Range ("B4:C" & num) ， 
PlotBy:=xlColumns 
End Sub 
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这 段 代 码 中 传递 的 参数 item num 即 是 Worksheet_Activate 过 程 中 定义 的 项 目 数 
item_num， 为 此 需要 在 工作 表 Sheet3 的 Worksheet_Activate 过 程 的 最 后 调用 自 定义 过 程 
Update_Chartl 。 


在 工作 表 Sheet3 的 Worksheet Activate 代码 框架 中 添加 如 下 一 行 代码 ， 用 于 调用 
Update_Chartl 自 定义 过 程 ， 如 图 18-31 所 示 。 

Update Chart1 (Item num) 

返回 “ 收 支 项 目 ” 工 作 表 ， 添 加 一 个 新 的 收入 项 目 “ 咨 询 顾问 ” 如 图 18-32 所 示 。 

8 在 “收入 登记 ”工作 表 中 添加 修改 “咨询 顾问 ”项 目的 收入 登记 值 ， 如 图 18-33 所 示 。 


@ 色 切换 到 “收入 汇总 ”工作 表 中 ， 会 发 现 项 目 比 例 图 自动 发 生 了 变化 ， 如 图 18-34 所 示 。 
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图 18-31 添加 调用 代码 
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18-33 ”添加 关于 “顾问 咨询 ”的 项 目 收入 登记 图 18-34 项 目 比 例 图 发 生 了 变化 


蜡 串 进行 支出 汇总 。 按 AItHF11 组 合 键 打开 VBA 代码 窗口 ， 在 模块 1 代码 编辑 窗口 中 添加 
如 下 代码 程序 : 
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Function CollectByMonth2 () ' 按 月 份 汇总 
Dim count As Integer 
Dim row As Integer 
Dim month As Integer 
Dim Month Out (1 To 12) As Long ' 月 支出 
For row= 1 To 12 
Month Out (row) = 0 ' 初 始 化 月 份 支出 数组 
Next row 
count = Sheets ("支出 登记 ") . [Al11 .CurrentRegion.Rows.count 
For row = 3 To count 
month = Month (Sheets ("支出 登记 ") .Cells (row，3)) ' 记 录 登 记 的 月 份 


Select Case month 


Case 1 
Month Out (1) = Month Out (1) + Sheets ("支出 登记 ") .Cells (row，2) 
Case 2 
Month Out (2) = Month Out (2) + Sheets ("支出 登记 ") .Cells (row，2) 
Case 3 
Month Out (3) = Month Out (3) + Sheets ("支出 登记 ") .Cells (row，2) 
Case 4 | 
Month Out (4) = Month Out (4) + Sheets ("支出 登记 ") .Cells (row，2) 1 
Case 5 i 
Month Out (5) = Month Out (5) + Sheets ("支出 登记 ") .Cells (row，2) i 
Case 6 了 
Month Out (6) = Month Out (6) + Sheets ("支出 登记 ") .Cells (row，2) 
Case 7 i 
Month Out (7) = Month Out (7) + Sheets ("支出 登记 ") .Cells (row，2) :i 
Case 8 i 
Month Out (8) = Month Out (8) + Sheets ("支出 登记 ") .Cells (row，2) ii 
Case 9 i 
Month Out (9) = Month Out (9) + Sheets ("支出 登记 ") .Cells (row，2) i 
Case 10 | 
Month Out (10) = Month Out (10) + Sheets ("支出 登记 ") .Cells (row，2) ii 
Case 11 :i 
Month Out (11) = Month Out (11) + Sheets ("支出 登记 ") .Cells (row，2) i 
Case 12 和 
Month Out (12) = Month Out (12) + Sheets (" 支 出 登记 ") .Cells (row，2) i 
End Select 
Next row 


CollectByMonth2 = Month Out ' 返 回 月 支出 数组 
End Function 


因 昌 进入 工作 表 Sheet4 的 代码 编辑 窗口 ， 添 加 如 下 代码 : 


Private Sub Worksheet RActivate() 
Dim count1 As Integer, count2 As Integer 
Dim i As Integer, j As Integer 
count1l = Sheets (" 收 支 项 目 ") . [E1] .CurrentRegion.Rows.count 
count2 = Sheets (" 支 出 登记 ") . [A1] .CurrentRegion .Rows .count 


' 按 项 目 汇总 

Dim account As Long "总 支出 

Dim Item num As Integer  ' 定 义 支出 项 目 数 
Dim Item(100) As String "存储 支出 项 目 
Dim Item In(100) As Long ' 项 目 支 出 
account = 0 
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Item num = countl - 2 "获得 支出 项 目 数 
For i = 3 To count1 
Item(i - 2) = Sheets(" 收 支 项 目 ") .Cells (i，5) 
Next i 
For i = 1 To Item num “' 初 始 化 项 目 支出 数组 
Item In(i) = 0 
Next i 
For i = 3 To count2 
For j = 1 To Item num 
If Sheets ("支出 登记 ") .Cells (i, 1) = Item(j) Then 
Item In(j) = Item In(j) + Sheets ("支出 登记 ") .Cells (i，2) 
End If 
Next j 
Next i 
For i = 4 To Item num + 3 ' 将 各 项 目 支 出 赋值 给 工作 表 中 相应 的 单元 格 
Cells(i, 2) = Item(i - 3) 
Cells(i, 3) = Item In(i - 3) 
account = account + Item In(i - 3) 


Next i 
"总 计 " 


Cells (i, 2) 
Cells (i，3) = account ' 支 出 总 额 


' 按 月 份 汇总 

Dim month As Integer 

Dim Month Out() As Long 

Month Out () = CollectByMonth2 

For i = 19 To 30 ' 将 各 月 份 支出 赋值 给 工作 表 中 相应 的 单元 格 
Cells(i, 3) = Month Out(i - 18) 

Next i 

Cells (31，3) = "=Sum(C4:C15)" "支出 总 额 


Update Chart2 (Item num) 


End Sub 


Sub Update Chart2 (Item num As Integer) 
Dim num As Integer 


num 


= Item num + 3 ' 最 后 一 个 项 目 所 在 行 号 


Sheets ("支出 总 汇 ") .ChartObjects (1) .Activate 

ActiveChart .SetSourceData Source:=Sheets(" 支 出 总 汇 ") .Range("B4:C" & num)， 
PlotBy:=xlColumns 

End Sub 


因 邮 返回 到 “支出 汇总 ”工作 表 中 ， 此 时 会 得 到 按 月 份 和 项 目 汇总 的 支出 金额 ， 如 图 18-35 


所 示 。 


吓 闻 按照 前 面 “ 收 入 汇总 ”工作 表 中 添加 图 表 的 方法 ,在 “支出 汇总 ”工作 表 中 添加 项 目 比 
例 图 和 月 份 走势 图 ， 如 图 18-36 所 示 。 
轴 央 在 工作 表 Sheet4 的 代码 编辑 窗口 中 添加 如 下 代码 程序 ， 使 项 目 比 例 图 的 数据 源 动态 化 。 


Sub Update Chart2 (Item num As Integer) 
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Dim num As Integer 


num = Item num + 3 ' 最 后 一 个 项 目 所 在 行 号 
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Sheets (" 支 出 总 汇 ") .ChartObjects (1) .Activate 
RctiveChart .SetSourceData Source:=Sheets (" 支 出 总 汇 ") .Range ("B4:C" & num) ， 
PlotBy:=xlColumns 
End Sub 
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18-35 按 项 目 和 月 份 汇总 的 支出 金额 图 18-36 添加 项 目 比例 图 和 月 份 走势 图 


因 国 在 工作 表 Sheet4 的 代码 编辑 窗口 中 的 _ Worksheet_ Activate 过 程 的 最 后 添加 调 
Update_Chart2 的 语句 ， 如 图 18-37 所 示 。 


对 


Update_Chart2 (Item_num) 


Worksheet 了 |] JActivate 下 


让 
1 
i 
i 
二 
TemG - 2) = Shestsf 收 支 项 目 ) Cells Gi，5) 习 i 
Hext i 
For i = 1 Te Iten_nun “初始 化 项 目 支出 数组 1 
Tten In(i) = 0 
Next 1 a 
For i = 3 To commt 
For j=11 i 
I Sees CE ).Cells (Gi, 1) = Iten Ki) Then i 
Iten_InG] = Iten_In(j) + Sheets(" 支 出警 记 ). Cells (i，2) 了 
End IE i 
Next 了 
Text i 本 
For i = 4 To Iten_man + 3° 的 失 工 作家 中 根本 的 站 二 格 
Cellsfi，2) = Iten(i - 3) i 
Cells (i, 3) = Iten_In(i - 3) 
account = account F Iten_In(i - 3) i 
Hext i 
Cells (i，2) = “总 计 i 
Cells(i，3) = account “支出 总 额 i 
1 
i 
4 
Ei 
1§ 


“ 按 月 份 汇总 
Dim nonth_ As Integer 
Tim Month_Out O As Long 
Month_Out () = CollectByl 
For i=19To30° I 人 
Cells(i, 3) = Nonth_Out Gi - 18) 


Next i 
Cells (31，3) =“=Sun (C4:C15)”“ 支 出 总 额 


End Sub 


Sub Update_Chart2 Tten_nun As Integer) 

Din num As Integer 

mum = Item_num + 3 “最 后 一 个 项 目 所 在 行 号 

Sheets (支出 总 汇 "). ChartObjects (1). Activate 

ActiveChart. SetSourceData Source:=Sheets ("支出 汇总 "). Range ("B4:C" & num), Fl 
End Sub 


18-37 添加 调用 Update_Chart2 的 语句 
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ES ETEEN 入 门 与 交战 
村 使 用 VBA 设计 收 支 对 比 


下 面 介绍 将 收 支 金额 按 月 份 汇总 的 结果 进行 对 比 ， 并 绘制 收 支 对 比 图 。 
@ 央 在 VBA 代码 窗口 中 ， 打 开 Sheet5 工作 表 的 代码 编辑 窗口 ， 添 加 如 下 代码 : 


Private Sub Worksheet Activate() 
Dim i Rs Integer 
Dim Month In() As Long 
Dim Month Out() As Long 
Dim accountl1 As Long 
Dim account2 As Long 
account1l = 0 
account2 = 0 
Month In() = CollectBYMonthl 
Month Out () = CollectByMonth2 
For d = LBound (Month In()) To UBound (Month In()) 
Debug.Print Month In(d) 
Next 
Fo TO 
Cells(i, 3) = Month In(i - 3) 
accountl = accountl + Month In(i - 3) 
Cells (i，4) = -Month Out (i - 3) ' 支 出 列 以 负 值 显 示 
account2 = account2 - Month Out (i - 3) ' 总 支出 也 以 负 值 显示 
Next i 
Cells (i, 3) 
Cells (i, 4) 
End Sub 


加 关闭 VBA 代码 窗口 ， 返 
如 图 18-38 所 示 。 
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到 “ 收 支 对 比 ” 工 作 表 ， 即 可 得 到 按 月 份 汇总 的 收 支 金 额 ， 
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18-38” 按 月 份 汇总 的 收 支 金额 
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第 18 章 企业 收 支管 理 系统 


@ 旨 在 F2 单元 格 中 输入 文本 “ 收 支 对 比 图 "， 并 设置 其 字体 、 字号 及 字体 颜色 ， 然 后 为 该 单 
元 格 添加 相应 的 边框 和 背景 颜色 ， 如 图 18-39 所 示 。 

0 缚 选中 C4: D14 单元 格 区 域 , 在 【插入 】 选 项 卡 中 ， 在 【图 表 】 选 项 组 的 【条 形 图 】 下 
拉 列 表 中 选择 “ 徐 状 条 形 图 "， 即 可 在 工作 表 中 插入 一 个 图 表 ， 如 图 18-40 所 示 。 


ES 


[EXED 


i Om 一 一 一 习 ene) La Ceara) era) usaamu ua 对 比 

,| mg sa pe wi) sa en Ht a wn 

i 收 支 对 比 图 : : 

RS 二 es Ba EE ia ee ee 
图 18-39 输入 文本 内 容 图 18-40 ”插入 一 个 艇 状 条 形 图 表 


18.2.4 为 自 定义 按钮 指定 宏 


为 了 便于 工作 表 之 间 的 切换 ， 可 以 为 各 个 工作 表 中 添加 的 自 定义 按钮 指定 宏 ， 使 用 这 些 
按钮 可 以 快速 地 访问 工作 簿 中 的 任意 工作 表 。 

品 按 Altt+F11 组 合 键 打开 VBA 代码 窗口 ， 从 中 选择 【插入 】> 【模块 】 菜 单 命令 ， 插 入 
一 个 名 称 为 “模块 2” 的 模块 ， 在 该 模块 【属性 】 窗 口中 的 【名 称 】 文 本 框 中 输入 “指定 宏 “"， 如 
18-41 所 示 ， 在 该 模块 中 添加 如 下 代码 。 

Sub 收入 登记 () 


Sheets ("收入 登记 ") .Activate 
End Sub 


Sub 支出 登记 () 
Sheets ("支出 登记 ") .Activate 
End Sub 


Sub 收入 汇总 () 


Sheets ("收入 汇总 ") .Activate 
End Sub 


Sub 支出 汇总 () 
Sheets ("支出 汇总 ") .Activate 
End Sub 


Sub 收 支 对 比 () 
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Sheets (" 收 支 对 比 ") .Activate 
End Sub 


Sub 收 支 项 目 () 
Sheets (" 收 支 项 目 ") .Activate 
End Sub 


工 者 - VEAProject 


避 仿 上 erosoft Excel 对 象 
图 ] Sheetl (收入 登记 ) 
因 ] Sheet2 (出 登记 ) 
Sheet3 (收入 汇总 ) 


恩 ] Sheet4 作出 汇总 ) 

图 ] Sheet5 ( 收 支 对 比 ) 
Sheet6 ( 收 支 项 目 ) 
Thi shorkbook 


图 18-41 修改 模块 名 称 图 18-42 【指定 宏 】 对 话 框 


@ 到 关闭 VBA 代码 窗口 ,返回 到 “收入 登记 ”工作 表 中 ， 右 击 【 收 入 登记 】 按 钮 ， 在 弹出 
的 快捷 菜单 中 选择 【指定 宏 】 菜单 命令 ， 打 开 【 指 定 宏 】 对 话 框 ， 为 其 指定 名 称 为 “收入 登记 ” 
的 宏 ， 如 图 18-42 所 示 。 单 击 【 确 定 】 按 钮 即 可 完成 指定 宏 操作 。 按 照 这 种 方法 ， 依 次 为 其 他 按 
钮 指定 宏 ， 所 指定 的 宏 的 名 称 与 按钮 中 所 包含 的 文本 相同 。 

@g 切换 到 其 他 工作 表 中 ， 用 同样 的 方法 为 各 个 按钮 指定 相应 的 宏 名 称 。 


到 此 就 完成 了 企业 收 支管 理 系统 的 设计 ， 读 者 可 以 根据 自己 的 需要 创建 一 个 【管理 员 】 
登录 窗 体 ， 使 系统 的 管理 员 通 过 此 窗 体 访 问 、 修 改 工作 簿 中 的 内 容 。 
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